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1. Release 5.0: Introduction and Highlights 


These notes accompany the release of Release 5.0. They describe changes made 
since Release 4.5. The changes are organized in the following sections. Within each 
section, the material is organized into incompatible changes, new features, and 
improvements. 


Changes to the Lisp Language and Compiler in Release 5.0 
This section describes changes relevant to the Lisp language and 
compiler. The biggest changes are these: 


¢ Packages have completely changed for compatibility with 
Common Lisp. The keyword package is now separate from 
user, and it does not inherit from global. Files compiled in 
earlier systems will not work in Release 5.0 and should be 
recompiled. 


¢ The procedure for logging in has changed as a result of a 
new network namespace system. 


¢ The rubout handler has been renamed to the input editor 
and has been extensively changed. 


¢ The readtable, reader, printer, and open have changed for 
compatibility with Common Lisp. 


¢ The 3600 now supports IEEE-standard single- and double- 
precision floating point numbers. 


e Several window system flavors and methods related to mouse 
input have been changed. 


¢ Logical pathnames and translations have changed. 
¢ Init file pathnames have been standardized. 


¢ The first colon in a pathname now always delimits the host. 


Changes to Networks in Release 5.0 
This section describes changes in network implementation, 
interface, and protocols. The biggest change is the introduction of 
a network namespace system. 


Changes to Utilities in Release 5.0 | 
This section describes changes in what any other computer would 
call the operating system and utilities. This includes the 
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Debugger, the garbage collector, network support, and various 
system keyboard features. The most important changes are: 


¢ Changes in the location of some keyboard keys on the 3600. 


e A new system for yanking input in Zwei and the input 
editor. 


¢ A new terminal program that incorporates Telnet and 
Supdup. 


¢ A new utility, the Flavor Examiner, for finding information 
about flavors and methods. 


e A new carry tape system. 


Changes to the File System in Release 5.0 
This section describes changes in the Lisp Machine file system. 
The major change is the introduction of accordion wildcards. 


Changes to Zmacs in Release 5.0 . 
This section describes changes in the Zmacs editor. The biggest 
change is the new yank system. See the document Using the 
Input Editor. 


Changes to Zmail in Release 5.0 
This section describes changes in the Zmail mail reading and 
sending program. 


Changes to the FEP in Release 5.0 
This section describes changes in the FEP. Release 5.0 requires 
FEP version number 17 or higher. 


Release 5.0: Notes and Clarifications 
This section contains explanations and clarifications of items that 
people found confusing in previous releases and documentation. 


Release 5.0: Operations and Site Management 
This section describes changes to the system and site 
configuration features of the system. These changes are 
important to the people who are responsible for the software at 
each site. 


You can find all the incompatible changes by reading the first part of each section. 
A complete list of changes appears in the Table of Contents. 


As in previous releases, many minor bugs have been fixed and performance in some 
areas has been improved. Only the more important or visible changes are mentioned 
here. 
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11 New Microcode in Release 5.0: 270 on 3600, 998 on LM-2 


Release 5.0 world loads must be run with microcode version 270 on the 3600 and 
version 998 on the LM-2. The old world loads do not work with the new microcode, 
and the new world loads do not work with the old microcode. 
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2. Changes to the Lisp Language and Compiler in 
Release 5.0 


2.1 Incompatible Changes to Lisp in Release 5.0 


2.1.1 Changes to login 


The login function has changed for Release 5 for compatibility with the new 
network naming scheme. The arguments are different. If you type a user-name 
argument that isn’t the name of a known user in the network namespace, you are 
asked whether to supply a specific host to log into this time. Before login finishes, 
you are also prompted to add a user object to the network database, using 
tv:edit-namespace-object. 


login user-name &key host (load-init-file t) Function 
Note that although you enter the same user id for user-name as in previous 
releases, the user object that contains it now also contains the name of the 
host where your mail and init files reside. Therefore, you seldom need to 
supply a host argument to login. See the section "Network Database". 


user-name is the name of a user. host is a particular host computer. If the 
value of load-init-file is t, as it is by default, the user’s init file is loaded. If 
the value of load-init-file is nil the init file is not loaded. 


You can log in as a registered user by not specifying a host, or you can log in 
to a specific host as a user on that host, not registered in the Lisp Machine 
namespace database. 


If host requires passwords for logging in, you are asked for a password. 
When logging in to a TOPS-20 host, typing an asterisk before your password 
enables any special capabilities you may be authorized to use. 


If anyone is logged into the machine already, login logs that user out before 
logging in user-name. See the function logout. login also runs the 
login-initialization-list. See the section "System Initialization Lists". 


When login loads an init file, it looks for a file whose name depends on the 
host. See the section "Init File Naming Conventions". Init files should be 
written using login-forms so that logout can undo them. Usually, however, 
you cold boot the machine before logging in, to remove any traces of the 
previous user. 


login returns t. 
A typical use of login now looks like this: . 
(login ’djones) 
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If you supply an unknown user id and don’t specify :host, you are given an 
opportunity to specify a particular host for the current login session, and to 
add the user object thus created to the network database (accomplished via 
tv:edit-namespace-object) for subsequent logins. You can instead select 
the Retry option, which is useful when the namespace server did not respond 
to your initial login request. 


2.1.2 Changes to Packages 


Packages have completely changed for Release 5.0. Formerly, packages were 
arranged in a hierarchy of superpackages and subpackages. This hierarchy no longer 
exists. Instead, symbols within a package are divided into internal and external 
symbols. One package can inherit the external symbols of another by using the 
second package. A package can also import or export symbols. 


An important result of this reorganization is that the keyword package is no longer 
the same as user, and it does not inherit from global or any other packages. 

Thus, foo in the user package is no longer the same symbol as :foo, and foo in 
the global package is no longer the same symbol as :foo. The fonts package also 
no longer inherits from global. 


You must change any symbols in your programs that are now in the wrong package. 
In particular, you must add package prefixes (colons) to symbols that are in the 
global or user package but should be in keyword, and you must remove package 
prefixes from symbols that are in keyword but should be in global or user. 


You might have difficulty making these corrections because the editor currently 
signals an error when it parses a file in Lisp Mode that contains some symbols in 
the wrong package. To edit this kind of file, use Find File in Fundamental Mode 
(m-X). 


All programs compiled in earlier systems should be recompiled in Release 5.0. The 
package information in code compiled in earlier systems is no longer valid. Unless 
your programs use symbol names that depend on the old package hierarchy, you 
should not have to rewrite programs to work in Release 5.0. Some functions and 
special forms have changed, but most changes are upward compatible. 


Font files from previous releases load in Release 5.0, giving several warnings. You 
should then use the Font Editor to write files of type BFD. See the section 
"Default Font Format Now Bfd". 


The Lisp Machine Manual chapter "Packages" has been rewritten. It describes both 
general changes to the package system and new functions, special forms, and 
condition flavors not documented here. See the document Packages. 
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2.1.2.1 New special form: defpackage 
The special form defpackage replaces package-declare. package-declare still 
exists for compatibility with earlier systems. 


See the special form defpackage. 


2.1.2.2 New function: make-package 
The function make-package replaces pkg-create-package. pkg-create-package 
still exists for compatibility with earlier systems. 


See the function make-package. 


2.1.2.3 intern, intern-local, intern-soft, and intern-local-soft return two values 
The functions intern, intern-local, intern-soft, and intern-local-soft return two 
values instead of three. The second value is different but upward compatible. 


See the function intern. See the function intern-local. See the function 
intern-soft. See the function intern-local-soft. — 


2.1.2.4 Optional argument to mapatoms-all and where-is eliminated 

mapatoms-all and where-is no longer take an optional argument defaulting to the 
global package. They now always process all packages that are not invisible. The 
function package-used-by-list can help if you need to process only the subset of all 
packages that use some particular package. 


See the function mapatoms-all. See the function where-is. See the function 
package-used-by-list. 


2.1.3. Symbols in global and keyword packages with the same names 


Before Release 5.0 the keyword package inherited from global. Symbols in the 
global and keyword packages with the same names were the same symbols. In 
Release 5.0 the keyword package does not inherit from global, and symbols in these 
packages with the same names are different symbols. Following is a partial list of 
symbols in the keyword package with the same names as symbols in global. 
Along with each symbol is the reason for its existence. Some other symbols that 
have the same names exist in both packages, but for these you would nearly always 
- use the symbol in global. 


Symbol Use 

sand Method combination type 
sappend Method combination type 
sarray defstruct type, data type 
sarray-leader defstruct type 

2aSSOC Choose-variable-values item type 


satom Data type 


sbase 

:beep 

sbitblt 
:byte-size 

:cadr 
scharacter 
:close 

sclosure 
:compile 

scond 
:defun-method 
:delete 
:describe 
:documentation 
sequal 
:eval-when 
sexport 
:fill-pointer 

:fix 

:fixnum 

float 

:flonum 

:font 

:funcall 
:function 

sget 
:get-handler-for 
:getl 

sibase 

simport 
slambda-macro 
slist 

slist* 
:make-array | 
snamed-structure-symbol 
:znconc 

snull 

open 

:0r 

otherwise 


:package 

plist 

:print 

sprogn 
:prompt-and-read 
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File attribute 

Message to windows 

Message to windows 

open option 

#+ feature 

Data type 

Message to streams 

Data type 

make-system option 

trace option 

Function spec type 

Message to pathnames (et al.) 
Message to objects 

Property for defvar documentation 
Message to (some) pathnames 
defstruct option 

defpackage option 

make-array option 

Data type 

Data type 

Data type 

Data type 

Internal; data type name is font 
Menu item type; constraint frames 
trace option 

Message to objects with property lists 
Message to objects 

Message to objects with property lists 
Obsolete file attribute 
defpackage option 

Function spec type 


Method combination type; defstruct type 


defstruct type 

defstruct option 

make-array option 

Method combination type 

Data type 

Message to pathnames 

Method combination type 

For :case method combination; 
use otherwise with selectq 
File attribute 

Message to objects with property lists 
Message to streams 

Method combination type 
Message to streams 
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:putprop Message to objects with property lists 

:random Not a valid data type, but can be returned by 
one-argument typep 

‘read Message to streams 

:readline fquery type 

‘remprop Message to objects with property lists 

:rubout-handler Message to streams 

:shadow defpackage option 

:shadowing-import defpackage option 

step trace option 

:string-trim prompt-and-read type 

:symbol Data type 

:string Data type 

styi Message to streams 

:tyipeek Message to streams 

styo Message to streams 

:unbound-function Internal to who-calls 


(not the special argument to it) 


2.1.4 Symbols moved to or from global package 
The following symbols were added to global: 


byte-position 
byte-size 


deallocate-whole-resource 


defconstant 
define-symbol-macro 
defpackage 
do-all-symbols 
do-external-symbols 


export 
find-all-symbols 
import 

keywordp 
make-package 
map-resource 

mod 
multiple-value-progl - 


package-external-symbols 
package-shadowing-symbols 
package-use-list 
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package-used-by-list 
pkg-add-relative-name 
pkg-delete-relative-name 
pkg-keyword-package 
read-delimited-string 
readline-or-nil 
shadow 
shadowing-import 
tagbody 

undefflavor 

unexport 
unuse-package 
use-package 
with-input-editing 


The following symbols were added to global on the 3600 only: 


%%arg-desc-quoted 
%%arg-desc-rest-arg 
%%q-fixnum 
%%q-flonum 
%%q-high-type 
dfloat 


The following symbols were removed from global: 


+g 

¢p 

bignum 
def-open-coded 
include 

locative 
open-code 
page-table-area 
pkg-contained-in 
pkg-debug-copy 
pkg-is-loaded-p 
pkg-load 
pkg-refname-alist 
pkg-super-package 
plane-ar-n 
plane-as-n 
process-class 
screen-xgp-hardcopy 
sg-area 
sg-return-unsafe 
small-flonum 
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source-file-name 
supdup 

telnet 

unbind 
with-resource 


The following LM-2-specific symbols were removed from global on the 3600 only: 


%%arg-desc-evaled-rest 
%harg-desc-fef-bind-hair 
%%arg-desc-fef-quote-hair 
%*arg-desc-quoted-rest 
%%q-flag-bit 
%%q-high-half 
%%q-low-half 
%24-bit-difference _ 
%24-bit-plus 
%24-bit-times 
%activate-open-call-block 
%allocate-and-initialize 
%allocate-and-initialize-array 
%arg-desc-evaled-rest 
%arg-desc-fef-bind-hair 
%arg-desc-fef-quote-hair 
%arg-desc-quoted-rest 
%assure-pdl-room 
%divide-double 
%float-double 

%mar-high 

%mar-low 
%microcode-version-number 
%multiply-fractions 
*%open-call-block 
%p-deposit-field 
%p-deposit-field-offset 
%p-flag-bit 

%p-mask-field 
%p-mask-field-offset 
%p-store-flag-bit 
%remainder-double 
%structure-boxed-size 
%unibus-read 
%unibus-write 
%xbus-read 

%xbus-write 

*dif 

*plus 
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*quo 

*times 
*unwind-stack 
ap-3 


art-fps-float 
art-half-fix 
art-reg-pdl 
art-special-pdl 
art-stack-group-head 


cedr-error 

clear-mar 
dtp-array-header 
dtp-array-pointer 
dtp-entity 

dtp-fef-pointer 

dtp-free 

dtp-header 
dtp-instance-header 
dtp-instance-variable-pointer 
dtp-select-method 
dtp-small-flonum 
dtp-stack-group 
dtp-symbol-header 
dtp-trap 

dtp-u-entry 
enable-trapping 

entity 

entityp 

fasd-update-file 
fasl-append 

fasload 

font-next-plane 
font-rasters-per-word 
font-words-per-char 
get-list-pointer-into-array 
get-list-pointer-into-struct 
get-locative-pointer-into-array 
macro-compiled-program 
mar-break 

mar-mode 
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number-ge-on 
print-error-mode 
q-data-types 

qc-file 

qc-file-load 
read-meter 
return-next-value 
set-current-band 
set-current-microload 
set-error-mode 
set-mar 
set-memory-size 
small-float 
small-floatp 
swap-sv-of-sg-that-calls-me 
swap-sv-on-call-out 
trapping-enabled-p 
write-meter 

xstore 


The following 3600-specific symbols were removed from global on the LM-2 only: 


compiled-function-area 
constants-area 
control-tables 
page-table-area 
phame-area 
property-list-area 
stack-area 

symbol-area 
wired-control-tables 


2.1.55 Keyword Symbols Are Self-evaluating 


Keyword symbols now evaluate to themselves. You no longer have to quote them. 
The compiler takes account of this self-evaluation to produce efficient compiled code. 


2.1.6 Functions moved from the si package to global: deallocate-whole-resource, 
map-resource 


The functions si:deallocate-whole-resource and si:map-resource are now in the 
global package. These functions were previously undocumented. 


deallocate-whole-resource resource-name Function 
Deallocate all allocated objects of the resource specified by resource-name, 
returning them to the free-object list of the resource. You should use this 
function with caution. It marks all allocated objects as free, even if they are 
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still in use. If you call deallocate-whole-resource when objects are still in 
use, future calls to allocate-resource might allocate those same objects for 
another purpose. 


map-resource resource-name function &rest args Function 
Calls function once for every object in the resource specified by resource-name. 
function is called with the following arguments: 


¢ The object 

¢ t if the object is in use, or nil if it is free 
e resource-name 

e Any additional arguments specified by args 


2.1.7 New special forms catch and throw replace *catch and *throw 


The new special forms catch and throw are recommended for making nonlocal 
exits. *catch and *throw are supported for compatibility with earlier releases. 


catch and throw differ from *catch and *throw mainly in the returned values: 
catch returns multiple values from its last body form when it exits normaily, and 
throw causes catch and *catch to return multiple values that result from its 
second subform. You can use catch with *throw and *catch with throw 
(although this is not recommended). If control exits normally, the returned values 
depend on whether catch or *catch is used. If control exits abnormally, the 
returned values depend on whether throw or *throw is used. 


The old Maclisp catch and throw macros are no longer supported on the LM-2. 
They were never supported on the 3600. 


catch tag body... Special Form 
catch is used with throw for nonlocal exits. catch first evaluates tag to 
obtain an object that is the "tag" of the catch. Then the body forms are 
evaluated in sequence, and catch returns the (possibly multiple) values of the 
last form in the body. 


However, a throw or *throw form might be evaluated during the evaluation 
of one of the forms in body. In that case, if the throw "tag" is eq to the 
catch "tag" and if this catch is the innermost catch with that tag, the 
evaluation of the body is immediately aborted, and catch returns values 
specified by the throw or *throw form. 


If the catch exits abnormally because of a throw form, it returns the 
(possibly multiple) values that result from evaluating throw’s second subform. 
If the catch exits abnormally because of a *throw form, it returns two 
values: the first is the result of evaluating *throw’s second subform, and 
the second is the result of evaluating *throw’s first subform (the tag thrown 
to). 
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On the LM-2 only, *throw and *unwind-stack cause the catch to return 
two additional values. If *throw is used, the third and fourth values are nil. 
If *unwind-stack is used, the third and fourth values are the third and 
fourth arguments to *unwind-stack (the active-frame-count and the action). 


(catch ’foo form) catches a (throw ’foo form) but not a 
(throw ’bar form). It is an error if throw is done when no suitable catch 
exists. 


The scope of the fags is dynamic. That is, the throw does not have to be 
lexically within the catch form; it is possible to throw out a a function that 
is called from inside a catch form. 


On the LM-2 only, the values t and nil for fag are special: A catch whose 
tag is one of these values catches throws to any tag. These are for internal 
use only: unwind-protect uses t, and catch-all uses nil. The only 
difference between t and nil is in the error checking; t implies that after a 
“cleanup handler" is executed, control will be thrown again to the same tag. 
Thus, it is an error if a specific catch for this tag does not exist higher up 
the stack. With nil, the error check is not done. 
Example: 
(catch ’negative 
(mapcar (function (lambda (x) 
(cond ((minusp x) 
(throw ’negative x)) 

. (t (f x)) ))) 

y)) 
which returns a list of f of each element of y if they are all positive, 
otherwise the first negative member of y. 


throw tag form Special Form 
throw is used with catch to make nonlocal exits. It first evaluates tag to 
obtain an object that is the "tag" of the throw. It next evaluates form and 
saves the (possibly multiple) values. It then finds the innermost catch or 
*catch whose "tag" is eq to the "tag" that results from evaluating tag. It 
causes the catch or *catch to abort the evaluation of its body forms and to 
return all values that result from evaluating form. In the process, dynamic 
variable bindings are undone back to the point of the catch, and any 
unwind-protect cleanup forms are executed. An error is signalled if no 
suitable catch is found. 


The scope of the fags is dynamic. That is, the throw does not have to be 
lexically within the catch form; it is possible to throw out of a function that 
is called from inside a catch form. 


On the 3600, the value of tag cannot be the symbol 
sys:unwind-protect-tag; that is reserved for internal use. On the LM-2, 
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the values t, nil, and 0 for fag are reserved for internal use. At present you 
cannot use t and nil for fag on the 3600; this will be changed in a future 
release. 


2.1.8 Nonkeyword form of make-array is obsolete 


The nonkeyword form of make-array documented on page 113 of the Lisp Machine 
Manual is obsolete. All programs should use the form that takes keyword 
arguments in addition to the array dimensions. 


See the function make-array. 


2.1.9 string-length uses same coercion rules as string 


string-length now uses the same rules as string in interpreting its argument as a 
string. In particular, it is an error for the argument to be a floating-point number, 
and string-length can now be used for an instance that handles the 
:string-for-printing message. 


string-length string Function 
string-length returns the number of characters in string. This function 
uses the same coercion rules as string in interpreting string as a string. 
string-length returns the array-active-length if sfring is a string, or the 
array-active-length of the pname if string is a symbol. 


2.1.10 Change in type of array returned by string-append 


Previously, when the first argument to string-append was an array, the result was 
an array of the same type. Now the result is an array of the same type as the 
argument with the greatest number of bits per element. 


string-append rest strings Function 
Any number of strings are copied and concatenated into a single string. 
With a single argument, string-append simply copies it. The result is an 
array of the same type as the argument with the greatest number of bits per 
element. For example, if the arguments are arrays of type art-string and 
art-fat-string, an array of type art-fat-string is returned. string-append 
can be used to copy and concatenate any type of one-dimensional array. 
Example: 


(string-append #/! "foo" #/!) => “!foo!" 


2.1.11 Changes to Readtable, Reader, and Printer for Common Lisp 


Changes have been made to the readtable, reader, and printer in preparation for the 
introduction of Common Lisp, which is not available in Release 5.0. 
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2.1.11.1 Reader Accepts Common Lisp Floating Point Exponents 
The reader now accepts all exponent characters in Common Lisp. 


Following is a summary of floating-point exponent characters and the way numbers 
containing them are read on the 3600 and LM-2. 


Character 


B or b 
D ord 


E ore 


F or f 
L or 1 


Sors 


3600 
single-precision 
double-precision 


depends on value of 
cl:*read-default-float-format* 


single-precision 
double-precision 


single-precision 


2.1.11.2 New variable: cl:*read-default-float-format* 


cl:*read-default-float-format* 
Controls how floating-point numbers with no exponent or an exponent 
preceded by "E" or "e" are read. Following is a summary of the way possible 
values cause these numbers to be read on the 3600 and LM-2: 


Value 3600 

cl:single-float single-precision 
cl:double-float double-precision 
cl:short-float single-precision 
cl:long-float double-precision 


The default value is cl:single-float. 


LM-2 
flonum 
flonum 


depends on value of 
cl:*read-default-float-format* 


flonum 
flonum 


small-flonum 


Variable 


LM-2 
flonum 
flonum 
small-flonum 


flonum 


2.1.11.3 New descriptions: si:bitscale, si:digitscale, si:non-terminating-macro 

Three syntax descriptions for characters have been added. si:bitscale and 
si:digitscale describe "left shift" operations on integers. 

si:non-terminating-macro describes a character that can be a macro character or a 
You can use set-syntax-from-description to set the syntax of 
characters to these descriptions. | 


symbol 


constituent. 
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set-syntax-from-description char description &optional readtable Function 
Sets the syntax of char in readtable to be that described by the symbol 
description. The following descriptions are defined in the standard readtable: 
si:alphabetic |§_An ordinary character such as "A". 


si:break A token separator such as "(". (Obviously left parenthesis 
has other properties besides being a break.) 


si:whitespace A token separator that can be ignored, such as" ". 


si:single A self-delimiting single-character symbol. The initial 
readtable does not contain any of these. 

si:slash The character quoter. In the initial readtable this is "/". 

si:verticalbar |§ The symbol print-name quoter. In the initial readtable 
this is "I". 

si:doublequote The string quoter. In the initial readtable this is ‘"’. 

si:macro A macro character. Do not use this; use 


set-syntax-macro-char. 


si:circlecross The octal escape for special characters. In the initial 
readtable this is "@". 


si:bitscale A character that causes the fixnum to its left to be 
doubled the number of times indicated by the fixnum to its 
right. In the initial readtable this is "_". See the section 
"What the Reader Accepts". 


si:digitscale A character that causes the fixnum to its left to be 
multiplied by ibase the number of times indicated by the 
fixnum to its right. In the initial readtable this is "*". 
See the section "What the Reader Accepts". 


si:non-terminating-macro 
A macro character that is not a token separator. This is a 
macro character if seen alone but is just a symbol 
constituent inside a symbol. You can use it as a character 
of a symbol other than the first without slashing it. (+ 
would be one of these if it were not built into the reader.) 


These symbols will probably be moved to the standard keyword package at 
some point. readtable defaults to the current readtable. 


2.1.11.4 New reader macro: #B 
#Brational reads rational (an integer or a ratio) in binary (radix 2). Examples: 


#B1101 <=> 13. 
#B1100\100 <=> 3 
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2.1.11.5 New reader macro: #: 

#:name reads name as an uninterned symbol. It always creates a new symbol. 
Like all package prefixes, #: can be followed by any expression. Example: 

#:(a b c). 


2.1.11.6 Printing Uninterned Symbols 
By default, uninterned symbols print with a #: prefix. You can make them print 
without a prefix by evaluating (setf (si:pttbl-uninterned-prefix readtable) “"). 


2.1.11.7 #/ and #\ now identical 

The reader macros #/ and #\ are now identical. You can use either to read a 
printing character (such as #\A) or the name of a nonprinting character (such as 
#/c-X). Unless you are using Common Lisp, #/ and #\ continue to return integers 
to represent characters. 


The editor, however, still distinguishes between these two syntaxes. #/ prevents 
the editor from treating the character immediately following as a special character; 
#\ does not. Thus, to include an open parenthesis character in your program, use 
#/(, not #\C 


See the section "Sharp-sign Abbreviations". 


2.1.11.8 Reading and Printing Character Objects 

For Common Lisp only, the reader macros #/ and #\ can create character objects, 
and a double-quoted string can create a string of characters, depending on a property 
of the readtable. Regardless of this, character objects print with a #\ prefix. 


2.1.11.9 Ratios read in current ibase and print in current base 

Two integers separated by \ are read as a ratio of the integers. Ratios are now read 
in the base that is the value of ibase and printed in the base that is the value of _ 
base, not in decimal. 


2.1.11.10 New Rules for Reading Ambiguous Tokens 

Some tokens could be read as either symbols or integers in a base larger than 10. 
The variables si:*read-extended-ibase-unsigned-number* and 
si:*read-extended-ibase-signed-number* determine how these tokens are read. 


si:*read-extended-ibase-unsigned-number* Variable 
Controls how a token that could be a number or a symbol, and does not 
start with a + or - sign, is interpreted when ibase is greater than ten. 


nil It is never a number. 

t It is always a number. 

:sharpsign It is a symbol at top level, but a number after #X or 
#nR. 


:single It is a symbol except immediately after #X or #nR. 
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The default value is :single. 


si:*read-extended-ibase-signed-number* Variable 
Controls how a token that could be a number or a symbol, and starts with a 
+ or - sign, is interpreted when ibase is greater than ten. 


nil It is never a number. 

t It is always a number. 

:sharpsign It is a symbol at top level, but a number after #X or 
#nR. 

single It is a symbol except immediately after #X or #nR. 


The default value is :sharpsign. 


Some tokens could be read as either integers or floating-point numbers. Such tokens 
are always read as integers. Thus, 1e0 is an integer if the value of ibase is at least 
15. But 1.0e0 is always read as a floating-point number because of the decimal 
point. 


2.112 Changes to make-syn-stream 


The argument to make-syn-stream can now be a symbol or a locative. 
make-syn-stream returns an uninterned symbol. 


make-syn-stream symbol Function 
make-syn-stream creates and returns a "synonym stream" (syn for short). 
symbol can be either a symbol or a locative. 


If symbol is a symbol, the synonym stream is actually an uninterned symbol 
named #:symbol-syn-stream. This generated symbol has a property that 
declares it to be a legitimate stream. This symbol is the value of symbol’s 
si:syn-stream property, and its function definition is forwarded to the value 
cell of symbol using a dtp-external-value-cell-pointer. Any operations sent 
to this stream are redirected to the stream that is the value of symbol. 


If symbol is a locative, the synonym stream is an uninterned symbol named 
#:syn-stream. This generated symbol has a property that declares it to be 
a legitimate stream. The function definition of this symbol is forwarded to 
the cell designated by symbol. Any operations sent to this stream are 
redirected to the stream that is the contents of the cell to which symbol 
points. 
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2.1.13 format directives “@T and “@* replace “X and “G 


A new format directive, “@T, replaces ~“X, and the new directive ~“@* replaces “G. 
For the time being ~X and “G still work as in previous releases, but in a future 
release they will become number-formatting directives for compatibility with Common 
Lisp. 

“@T outputs a space. “n@T outputs n spaces. 


“n@* "goes to" the nth argument (0 is the first). “@* or ~“0@* goes back to the first 
argument in args. Directives after a “n@* will take sequential arguments after the 
one gone to. When within a “{ construct, the "goto" is relative to the list of 
arguments being processed by the iteration. This is an “absolute goto"; for a 
“relative goto", see ~*. 


2.1.14 Changes to format:ochar 


The :sail style keyword for format:ochar has been replaced by :brief, which has 
slightly different consequences. 


format:ochar character &optional style top-explain minwidth Function 
&rest options 
format:ochar outputs character in one of three styles, selected by the style 
argument. minwidth and options control padding as usual. 


If style is :read, nil, or not specified, then the character is printed using #/ 
or #\ so that it could be read back in. 


If style is :editor, then the output is in the style of the string "Meta- 
Rubout". 


If style is :brief, a somewhat more abbreviated style is used in which "c-", 
"m-", and the like, are used to represent "Control" and "Meta", and shorter 
names for characters are also used when possible. See the section "The 
Character Set". 


top-explain is useful with the :editor and :brief styles. It says that any 
character which has to be typed using the Symbol key should be followed by 
an explanation of how to type it. For example: "a (Symbol-shift-A)". 


2.1.15 Incompatible Changes to the Input Editor (Rubout Handler) 


The input editor, formerly called the rubout handler, has been extensively 
redesigned. This section describes only the incompatible changes for Release 5.0. 
For new features: See the section "New Features Associated with the Input Editor 
(Rubout Handler)". 
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2.1.15.1 Changes to Input Editor User Interface 

The history mechanism of the input editor has changed. Each stream that uses the 
input editor now maintains an infinite-length input history. A global kill history is 
maintained, shared with other streams that use the input editor and with Zwei- 
based editors. Commands for yanking input from these histories have changed. 

The histories are now emptied before cold booting or disk saving, not when logging 
out. See the document Using the Input Editor. 


Formerly, when you yanked previous input to the input editor, that input was 
displayed without the final character. You could reevaluate a previous form by 
yanking it and then typing the final character. 


Now the reader uses activation characters. The input editor displays yanked input 
fully. You can edit the input if you wish and "activate" it by pressing END from 
anywhere within the input you are editing. If you want to put an activation 
character into the input, "quote" it using c-@. 


readline and the Converse pop-up window also use activation. You can press 
RETURN anywhere within a line to activate it for readline. You can press END 
anywhere within a Converse pop-up reply to send the reply. 


2.1.15.2 Changes to input editor options :do-not-echo, :pass-through, :prompt, 
‘reprompt 
:do-not-echo now implies that the character arguments are activation characters. 


:do-not-echo char! char2 ... Option 
The characters charl, char2, and so on, are interpreted as activation 
characters. The comparison is done with =, not char-equal, so that the 
control and meta bits are not masked off. The characters are not inserted 
into the input buffer and are not interpreted as input editor commands. 
When one of these characters is typed, the final :tyi value returned is the 
character, not a blip. 


This option exists only for compatibility with earlier releases. New programs 
should use the :activation option. 


:pass-through is now allowed only for characters with no modifier bits set. 


:pass-through charl char2 ... Option 
The characters charl, char2, and so on are not to be treated as special by 
the input editor. This option is used to pass format effectors (such as HELP 
or CLEAR-INPUT) through to the reading function instead of interpreting them 
as input editor commands. :pass-through is allowed only for characters with 
no modifier bits set, that is, for character codes 0 through 377 (octal). For 
characters that have modifier bits set and must be visible to the reading 
function, use :do-not-echo or :activation. 


The second argument to the :prompt and :reprompt functions is now a keyword 
instead of a character. 
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:prompt function-or-string Option 
If function-or-string is a function and it is time for the user to be prompted, 
function-or-string is called with two arguments. The first is a stream it may 
print on; the second is a keyword that indicates the origin of the function 


call: 

Keyword Function called from 

:prompt :rubout-handler method of tv:stream-mixin 
srestore :restore-rubout-handler-buffer method of 


:stream-mixin 


sinsert, :overwrite, :temporary 
:‘finish-typeout method of tv:stream-mixin 


:refresh Body of the input editor 


If function-or-string is a string and it is time for the user to be prompted, 
function-or-string is displayed as a prompt. 


The difference between :prompt and :reprompt is that the latter does not 
call the prompt function or display the string when the input editor is first 
entered, but only when the input is redisplayed (for example, after a screen 
clear). If both options are specified, :reprompt overrides :prompt except 
when the input editor is first entered. 


:reprompt function-or-string Option 
Like :prompt but calls function-or-string (if it is a function) or displays 
function-or-string (if it is a string) only when the input is redisplayed (for 
example, after a screen clear), not when the input editor is first entered. If 
both :prompt and :reprompt are specified, :reprompt overrides :prompt 
except when the input editor is first entered. 


2.1.15.3 New error flavors: sys:parse-error and sys:parse-ferror 
The input editor no longer catches all flavors of error. It now catches only errors 
built on the flavors sys:parse-error and sys:parse-ferror. 


sys:parse-error Flavor 
This flavor is built on error and is the type of error caught by the input 
editor. This flavor accepts the init keyword :correct-input. If the value is 
t, which is the default, the input editor prints "Type RUBOUT to correct your 
input" and does not erase the message until a non-self-inserting character is 
typed. If the value is nil, no message is printed, and any typeout from the 
read function is erased immediately after the next character is typed. Syntax 
errors signalled by read functions should be built on top of this flavor. 
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sys:parse-ferror Flavor 
This flavor is built on sys:parse-error and ferror. It accepts the init 
keywords :format-string and :format-args as well as :correct-input. This 
flavor exists for read functions that do not have a special flavor of error 
defined for them. 


2.1.15.4 New function: sys:parse-ferror 


sys:parse-ferror format-string &rest format-args Function 
Signals an error of flavor sys:parse-ferror. format-string and format-args 
are passed as the :format-string and :format-args init options to the error 
object. 


See the flavor sys:parse-ferror. 


2.1.16 Changes to open 


2.1.16.1 Changes to open option :direction 

:direction :probe replaces :direction nil. New permissible values are 
:probe-directory and :probe-link. Various misspelled values such as :in that used 
to work for some file hosts are no longer supported for consistency. 


:direction Option 
The :direction option allows the following values: 
sinput | The file is being opened for input. This is the default. 
:output The file is being opened for output. 
:probe A "probe" opening; no data are to be transferred, and the 


file is being opened only to gain access to or change its 
properties. Returns the truename of the object at the end 
of a link or chain of links. (probef is usually preferable to 
an explicit probe opening.) 


:probe-link The same as :probe except that links are not chased. 
Returns the truename of the object named, even if it is a 
link. 

:probe-directory The pathname is being opened to find out about the 
existence of its directory component. Otherwise, the 
semantics are the same as :probe. If the directory is not 
found, a file lookup error is signalled. 


:probe-link The same as :probe except that links are not chased. 
Returns the truename of the object named, even if it is a 
link. 
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2.1.16.2 New open option: :estimated-length 


:estimated-length Option 
The value of the :estimated-length option may be nil (the default), which 
means there is no estimated length, or a number of bytes indicating the 
estimated length of a file to be written. Some file systems use this to 
optimize disk allocation. 


2.1.16.3 New open options: :if-exists and :if-does-not-exist 

:if-exists determines what happens if the specified file already exists; 
:if-does-not-exist determines what happens if it does not exist. The ability to 
append files has been added. 


:if-exists Option 
Specifies the action to be taken if the :direction is :output and a file of the 
specified name already exists. If the direction is :input or :probe (or any of 
the :probe-like directions), this argument is ignored. 


The following values are allowed: 


serror Signals an error. This is the default when the version 
component of the filename is not :newest. 


snew-version Creates a new file with the same file name but a larger 
version number. This is the default when the version 
component of the filename is newest. File systems 
without version numbers may choose to implement this by 
effectively treating it as supersede. 


rename Renames the existing file to some other name, and then 
creates a new file with the specified name. On most file 
systems, this renaming happens at the time of a successful 
close. 


:rename-and-delete 
Renames the existing file to some other name and then 
deletes it (but doesn’t expunge it, on those systems that 
distinguish deletion from expunging). Then creates a new 
file with the specified name. On most file systems, this 
renaming happens at the time of a successful close. 


:overwrite The existing file is used, and output operations on the 
stream destructively modify the file. The file pointer is 
initially positioned at the beginning of the file; however, 
the file is not truncated back to length zero when it is 
opened. 


:truncate The existing file is used, and output operations on the 
stream destructively modify the file. The file pointer is 
initially positioned at the beginning of the file; at that 
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time, the file is truncated to length zero, and disk storage 
occupied by it is freed. 


The existing file is used, and output operations on the 
stream destructively modify the file. The file pointer is 
initially positioned at the current end of the file. 


Supersedes the existing file. If possible, the file system 
does not destroy the old file until the new stream is closed, 
against the possibility that the stream will be closed in 
"abort" mode. This differs from :new-version in that 
:supersede creates a new file with the same name as the 
old one, rather than a file name with a higher version 
number. 


Does not create a file or even a stream. Instead, simply 
returns nil to indicate failure. 


Option 


Specifies the action to be taken if the file does not already exist. The 
following values are allowed: 


serror 


:create 


Signals an error. This is the default if the :direction is 
:input, :probe, or any of the :probe-like modes, or if the 
:if-exists argument is :overwrite, :truncate, or :append. 


Creates an empty file with the specified name, and then 
proceeds as if it had already existed. This is the default if 
the :direction is :output and the :if-exists argument is 
anything but :overwrite, :truncate, or :append. 


Does not create a file or even a stream. Instead, simply 
returns nil to indicate failure. 


2.1.17 Changes to renamef and copyf 


The following changes have been made to renamef and copyf: 


e renamef now returns three values: the target pathname, the truename of 
the source pathname, and the truename of the target pathname. The 
srename messages to streams and pathnames return the second and third of 


these values. 


e For renamef and copyf, the target pathname defaults against the link-opaque 
truename of the source pathname. 


¢« The copyf option :copy-author now defaults to t. 


e A new copyf option, :create-directories, determines whether or not copyf 
tries to create a directory for the copy target. 
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renamef file new-name &optional (error-p t) Function 
renamef is a function for renaming one file to another. The Rename File 
(m-X) command in the editor uses this function. 


file can be a pathname, a string, or a stream that is open to a file. The 
specified file is renamed to new-name (a pathname or string). If error-p is t, 
when an error occurs it is signalled as a Lisp error. If error-p is nil and an 
error occurs, the error object is returned; otherwise the three values described 
below are returned. 


file must refer to a unique file; it cannot contain any wild components. 
new-name can contain wild components, which are eliminated after merging 
the defaults by means of :translate-wild-pathname. renamef first 
attempts to open file. When that has happened successfully, it parses 
new-name and merges it (using fs:merge-pathnames) against the 
link-opaque truename of file and version of newest. This has the following 
result for version numbers. 


Source Target Result 
>foo>a.b.newest >bar> Retains the version number 
>foo>a.b.newest >bar>x Makes a new version of >bar>x.b 


The defaults for new-name come from the link-opaque truename of file. For 
systems without links, this is indistinguishable from the truename. 
Otherwise, the link-opaque truename depends on whether file contains an 
:oldest or :newest version. If it does not and if it is fully defaulted, with no 
wild components, the pathname is its own link-opaque truename. If a 
pathname x contains an :oldest or :newest version, the link-opaque 
truename is the pathname of the file or link that corresponds to x, with the 
version number filled in. For example, renaming the LMFS file >a>p1.lisp to 
>b> results in >b>p1.lisp, with the version of >a>p1.lisp.newest inherited. 
This is so whether >a>p1.lisp.newest is a real file, a link, or a rename- 
through link. 


renamef returns three values: 


1. The pathname produced by merging and defaulting new-name. This is 
the attempted result of the renaming. 


2. The pathname of the object that was actually renamed. This might 
not be the same as file. For example, file might have an :oldest or 
snewest version, or LMFS rename-through links might be involved. 
This pathname never has an :oldest or :newest version. 


3. The actual pathname that resulted from the renaming. This might 
not be the same as new-name. For example, new-name might have an 
:oldest or :newest version, or LMFS create-through links might be 
involved. | 
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The :rename message to streams and pathnames returns the second and 
third of these values. 
Examples: 
This example is as simple as possible. Using LMFS, on host johnny, with no 
links involved: 
(renamef “ johnny:>a>foo.lisp” “bar”) => 
#<LMFS-PATHNAME “ johnny: >a>bar.lisp”> 
#<LMFS-PATHNAME " johnny:>a>foo. lisp.17"> 
#<LMFS-PATHNAME " johnny: >a>bar.lisp.1"> 
This example is as complex as possible. Using LMFS, on host eddie, with 
links 
>abel>moe.lisp.4 => >baker>larry.lisp (rename-through) (latest) 
>baker>larry.lisp.4 => 
>char lie>sam.1isp.19 (not rename- or create-through) (latest) 
>david>jerry.lisp.5 => >ear]>ted.lisp (create-through) (latest) 
(renamef “eddie: >abel>moe.lisp.4” “eddie: >david>jerry”) => 
#<LMFS-PATHNAME “eddie: >david>jerry.lisp"> 
#<LMFS-PATHNAME “eddie: >baker>larry.lisp.4"> 
#<LMFS-PATHNAME “eddie: >ear]>ted.lisp.1"> 
copyf from-path to-path &key (characters ’:default) (byte-size nil) Function 


(copy-creation-date t) (copy-author t) 

(report-stream nil) (create-directories ’:query) 
copyf is a function for copying one file to another. Copy File (m-x) in the 
editor uses this function. 


from-path and to-path are the source and destination pathnames, which can 
be file specs. from-path must refer to a unique file; it cannot contain any 
wild components. to-path can contain wild components, which are eliminated 
after merging the defaults by means of :translate-wild-pathname. copyf 
first attempts to open from-path. When that has happened successfully, it 
parses to-path and merges it (using fs:merge-pathnames) against the 
link-opaque truename of from-path and version of ynewest. This has the 
following result for version numbers. 


Source | Target Result 
>foo>a.b.newest >bar> Retains the version number 
>foo>a.b.newest >bar>x Makes a new version of >bar>x.b 


The defaults for to-path come from the link-opaque truename of from-path. 
For systems without links, this is indistinguishable from the truename. 
Otherwise, the link-opaque truename depends on whether from-path contains 
an :oldest or :newest version. If it does not and if it is fully defaulted, with 
no wild components, the pathname is its own link-opaque truename. Ifa 
pathname x contains an :oldest or :newest version, the link-opaque 


RN Release 5.0 Release Notes 
Symbolics, Inc. March 1984 


29 


truename is the pathname of the file or link that corresponds to x, with the 
version number filled in. For example, copying the LMFS file >a>p1.lisp to 
>b> results in >b>p1.lisp, with the version of >a>p1.lisp.newest inherited. 
This is so whether >a>p1.lisp.newest is a real file, a link, or a rename- 


through link. 


By default, copyf copies the creation date and author of the file. 


Following is a description of the other options: 


s:characters Possible values: 
:default 
t 
nil 

sbyte-size 


copyf decides whether this is a binary 
or character transfer according to the 
canonical type of from-path. You do not 
need to supply this argument for 
standard file types. For types that are 
not known canonical types, it opens 
from-path in :default mode. In that 
case, the server for the file system 
containing from-path makes the 
character-or-binary decision. 


Specifies that the transfer must be in 
character mode. 


Specifies that the transfer must be 
binary mode (in this case, you must 
supply byte-size if using a byte size other 
than 16). 


Specifies the byte size with which both files will be opened 


for binary transfers. You must supply :byte-size when 
:characters is nil and the byte size is other than 16. 
Otherwise, copyf determines the byte size from the file 
type for from-path. When from-path is a binary file with a 
known canonical type, it determines the byte size from the 
:binary-file-byte-size property of the type. When the file 
does not have a known type, it requests the byte size for 
from-path from the file server. When the server for the 
file system containing from-path cannot supply the byte 
size, it assumes that the byte size is 16. 


:report-stream 


When :report-stream is nil (the default), the copying 


takes place with no messages. Otherwise, the value must 
be a stream for reporting the start and successful 
completion of the copying. The completion message 
contains the truename of to-path. 


s:create-directories 


Determines whether directories should be created, if 
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needed, for the target of the copy. Permissible values are 

as follows: | 

t Try to create the target directory of the 
copy and all superiors. Report directory 
creation to standard-output. 


nil Do not try to create directories. If the 
directory does not exist, handle this 
condition like any other error. 


:query If the directory does not exist, ask 
whether or not to create it. This is the 
default. 


2.1.18 Changes to Host Determination in Pathnames 


An important incompatible change has been made in the way the pathname system 
determines the host for a pathname being parsed. The first colon in a string to be 
parsed as a pathname now always delimits the host. You can "quote" embedded 
colons that are not intended to delimit the host by inserting a colon at the 
beginning of the string. 


An upwardly compatible change has been made as well. From either a 3600 or an 
LM-2, you can now use the syntax "host/FEPn" to refer to a FEP file system on a 
remote 3600. host is the name of the host, and n is the disk unit number. 


Following are the rules for host determination in a pathname. 


Two important operations of the pathname system are parsing and merging. 
Parsing is the conversion of a string, which might have been typed by the user 
when asked to supply the name of a file, into a pathname object. This involves 
finding out for which host the pathname is intended, using the file name syntax 
conventions of that host to parse the string into the standard pathname 
components, and constructing such a pathname. Merging is the operation which 
takes a pathname with missing components and supplies values for those 
components from a set of defaults. 


Since each kind of file system has its own character string representation of names 
of its files, there has to be a different parser for each of these representations, 
capable of examining such a character string and determining the value of each 
component. The parsers, therefore, all work differently. How does the parsing 
operation know which parser to use? It determines for which host the pathname is 
intended, and uses the appropriate parser. A filename character string may specify 
a host explicitly, by having the name of the host, followed by a colon, at the 
beginning of the string, or it may assume a default, if there is no host name 
followed by a colon at the beginning of the string. 


Here is how the pathname system determines for which host a pathname being 
parsed is intended. The first colon in a pathname being parsed always delimits the 
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host name. You can also enter pathname strings that are for a specific host and do 
not contain any host name. In that case, a default host is used. Normally, the 
identity of the default host is displayed to the user entering a pathname. See the 
section "Defaults and Merging”. 


However, it is possible to have pathnames that have colons in them that do not 
designate hosts, such as filenames constructed from clock times, and the like. Some 
systems use the colon character to delimit devices. This creates a problem in parsing 
such pathnames. See the function fs:parse-pathname. The standard Lisp 
Machine user interface does not use such pathnames, but they may be used by 
particular programs, especially programs that deal with files whose format is defined 
by a foreign operating system. 


The rule for parsing file names containing colons is, again, that any string used 
before a colon is unconditionally interpreted as a file computer. If the string cannot 
be interpreted as a host, an error is signalled. 


If you must type one of these peculiar pathnames that have embedded colons not 
meaning hosts, you omit the host and place a colon at the beginning of the string. 
This "null host" tells the parser that it should not look further for a colon, but 
instead assume the host from the defaults. Examples: 


¢ SS:<FOO>BAR refers to a host named "SS". :SS:<FOO>BAR refers to no 
explicit host; if parsed relative to a TOPS-20 default, "SS" probably refers to a 
device. 


e 09:25:14.data refers to a host named "09". :09:25:14.data refers to no explicit 
host. 


e Al: COMMON; GEE WHIZ refers to a host named "AI". 


e AI: ARC: USERS1; FOO BAR refers to a host named "AI". "ARC" is the 
name of a device in the ITS operating system. 


¢ EE:PS:<COMMON>GEE.WHIZ.5 specifies host EE (TOPS-20). 


¢ PS:<COMMON>GEE.WHIZ.5 specifies a host named PS, which is almost 
certainly not what is intended! The user probably intended the "PS" device on 
some TOPS-20 host. 


¢ :PS:<COMMON>GEE.WHIZ.5, assuming that the default host is some 
TOPS-20, specifies a device named "PS" on that host. 


There are a handful of “pseudo-" host names, which are recognized as host names 
even though they are not actually the names of hosts. They are "local", "FEP", 
"FEPn", and "hosti/FEPn". 


"local" This pseudo-host name always refers to the local file system 
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(LMFS) of the machine that you are using. It does not matter 
whether or not a local file system actually exists on that machine; 
an attempt will be made to reference it. "Local" is always 
equivalent to the name of the local host. 


"FEP" (3600 only) This pseudo-host name always refers to a FEP (Front- 
End Processor) file system on the machine you are using, 
specifically, the one on the disk unit from which the system was 
booted. 


"FEPn" (3600 only) This pseudo name always refers to a FEP file system 
on the machine you are using. The single digit n specifies the 
disk unit number; there is a separate FEP file system on each 
drive. This can access the boot unit, or any other disk unit, 
when multiple units are present. 


“host/FEPn" host must be a valid host name. This pseudo-host name refers to 
a FEP file system on a remote 3600. This may be used from 
LM-2’s, as well as 3600’s, to reference FEP file systems of remote 
3600’s. The syntax "host/FEP" is not acceptable: you may not 
access the "boot unit" of a remote 3600 in this fashion. You must 
know the disk unit number. The disk unit number of a host 
having only one disk unit is 0. 


If the string to be parsed does not specify a host explicitly, the parser assumes that 
some particular host is the one in question, and it uses the parser for that host’s file 
system. The optional arguments passed to the parsing function 
(fs:parse-pathname) tell it which host to assume. 


2.119 Meaning of argument changed for fs:parse-pathname 


The meaning of the second, with-respect-to argument to fs:parse-pathname has 
changed. with-respect-to specifies a host against which to parse the first argument, 
thing. Formerly, if thing contained a host name and with-respect-to was not nil, an 
error was signalled when the two hosts were not the same. When they were the 
same, the host name was removed from thing before it was parsed. Now this is 
true only if thing is a Maclisp-style list. 


Now, if thing is a string and with-respect-to is not nil, thing is taken as a true 
string for the host specified by with-respect-to. Host names are not removed from 
thing before it is parsed, and thing is parsed against the host specified by 
with-respect-to. Thus, when with-respect-to is not nil, thing should not contain host 
names. 


This change was made necessary by the change in host naming conventions. See 
the section "Changes to Host Determination in Pathnames". 
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fs:parse-pathname thing &optional with-respect-to (defaults Function 
| fs:*default-pathname-defaults*) 
This turns thing, which can be a pathname, a string, a symbol, or a Maclisp- 
style name list, into a pathname. Most functions that are advertised to take 
a pathname argument call fs:parse-pathname on it so that they will accept 
anything that can be turned into a pathname (most, however, do it 
indirectly, by calling fs:merge-pathnames). 


This function does not do defaulting, even though it has an argument named 
defaults; it only does parsing. The with-respect-to and defaults arguments are 
there because in order to parse a string into a pathname, it is necessary to 
know what host it is for so that it can be parsed with the file name syntax 
peculiar to that host. 


If with-respect-to is supplied, it should be a host or a string to be parsed as 
the name of a host. If thing is a string or symbol, it is then parsed as a 
true string for that host; host names specified as part of thing are not 
removed. Thus, when with-respect-to is not nil, thing should not contain a 
host name. 


If with-respect-to is not supplied or is nil, any host name inside thing is 
parsed and used as the host. If with-respect-to is nil and no host is specified 
as part of thing, the host is taken from defaults. 


Examples, using a LMFS host named Q: 


(fs:parse-pathname "a:>b.c“ "q") => #<LMFS-PATHNAME "Q:a:>b.c”> ;(wrong) 
(fs:parse-pathname “q:>b.c” “q") => #<LNFS-PATHNAME “Q:q:>b.c”> ;(wrong) 
(fs:parse-pathname "q:>b.c") => #<LMFS-PATHNAME "Q:>b.c"> 
(fs:parse-pathname ">b.c* "q") => #<LMFS-PATHNAME “Q:>b.c"> 


Note that this causes correct parsing of a TOPS-20 pathname when thing 
contains a device but no host and when with-respect-to is not nil. (Warning: 
If thing contains a device but no host and if with-respect-to is nil or not 
supplied, the device is interpreted as a host.) In the following example, X is 
a TOPS-20 host and A is a device: 


(fs:parse-pathname “a:<b>c.d" “x") => #<TOPS20-PATHNAME "X:A:<B>C.D"> 
(fs:parse-pathname "a:<b>c.d") => Error: "a" is not a known file 
server host. 


In the same TOPS-20 example, if with-respect-to is nil and the host is to 
taken from defaults, the pathname string must be preceded by a colon to be 
parsed correctly: 

(fs:parse-pathname “:a:<b>c.d" nil "x:") => #<TOPS20-PATHNAME "X:A:<B>C.D"> 


(fs:parse-pathname "a:<b>c.d" nil “x:") => Error: "a" is not a known file 
server host. 


If thing is a list, with-respect-to is specified, and thing contains a host name, 
an error is signalled if the hosts from with-respect-to and thing are not the 
same. 
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2.1.20 Arguments changed for fs:user-homedir and fs:init-file-pathname 


The second, optional argument to fs:user-homedir has been removed. 
fs:init-file-pathname now has two optional arguments: the canonical type of the 
init file, and the host. 


fs:user-homedir optional (host fs:user-login-machine) Function 
Returns the pathname of the logged-in user’s home directory on host, which 
defaults to the host the user logged in to. For a registered user (one who 
logged in without using the :host argument to login), the host is the user’s 
home-host attribute. Home directory is a somewhat system-dependent 
concept, but from the point of view of the Lisp Machine it is the directory 
where the user keeps personal files such as init files and mail. This function 
returns a pathname without any name, type, or version component (those 
components are all nil). 


fs:init-file-pathname program-name optional (canonical-type nil) Function 
(host fs:user-login-machine) 

Returns the pathname of the logged-in user’s init file for the program 
program-name, on the host, which defaults to the host the user logged in to. 
Programs that load init files containing user customizations call this function 
to find where to look for the file, so that they need not know the separate 
init file name conventions of each host operating system. The program-name 
"LISPM" is used by the login function. canonical-type is the canonical type 
of the init file. It should be nil when the returned pathname is being 
passed to load so that load can look for a file of the appropriate type. 


2.1.21 Init File Pathnames Standardized 


The names of init files have been standardized, and init files are now of canonical 
type :lisp for source files and :bin and :qbin for compiled files. You must change 
the names of your init files for Release 5.0. 


Init files are of canonical type :lisp for source files and :bin or :qbin for compiled 
files. For hosts that support long file names, the init file name consists of 
program-name with "-INIT" appended. Thus, the standard file name for a lispm init 
file is LISPM-INIT; for a Zmail init file, it is ZMAIL-INIT. Hosts that do not 

- support long file names have conventions peculiar to each system. 


Following are the names of lispm init source files on some hosts: 


Host system File name 
LMFS/TOPS-20 LISPM-INIT.LISP 
UNIX lispm-init.1 


VMS LISPMINI.LSP 
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Multics lispm-init.lisp 


ITS If user has own directory: LISPM >. If user does not have own 
directory: USER LISPM. 


2.1.22 :init canonical pathname type removed 


The :init canonical type has been removed. Init files are now of canonical type 
lisp for source files and :bin and :qbin for compiled files. 


2.1.23 Changes to Logical Pathnames 


2.1.23.1 Logical Pathname Name, Type, and Version Now Separated by Periods 
The name, type, and version of logical pathnames are now separated by periods. 
Spaces are accepted on input for compatibility. 


2.1.23.2 New Default Representations for Newest and Oldest Logical Pathname 
Versions 

The default representation in a logical pathname for the newest version is the 

string "NEWEST". The default representation for the :oldest version is the string 

"OLDEST". On input, ">" is accepted for :newest and "<" for :oldest for 

compatibility. 


2.1.23.3 Logical Pathnames Now Hierarchical 
Logical pathnames can now have hierarchical directories. Each directory level is 
separated by a semicolon. 


2.1.23.4 Changes to Logical Pathname Translations 

The procedure for translating logical to physical pathnames has changed to conform 
to the rules for wildcard pathname matching. Logical directory names in translation 
lists should now be terminated by semicolons (though fs:set-logical-pathname-host 
accepts logical directory names without semicolons). 


This section explains the format of the “translations” list of logical pathnames and 
the rules for translating a logical pathname to a physical pathname. 


Each element of the list (one translation) specifies two wildcard pathnames, the first 
on the logical host and the second on the physical. In the Lisp form (in the file 
sys:site;host.translations) that specifies this form, they are given as strings to be 
parsed against these respective hosts. As they are parsed, they are merged with a 
pathname of wild name, wild type, and wild version. 


Following is an example of a translations list: 
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°(("L-BIN;” ">Imach>fas1>") 
("L-COMPILER;” “>sys>1-compiler>") 
("L-SYS;" “>Imach>") 
("L-*;" “>Imach>*>") 
("LMFS-PATCH;" “>sys>Imfs>patch>* ) 
("x;" ">sys>*>"))) : 


Note that logical directory names should be followed by semicolons (though 
fs:set-logical-pathname-host accepts names without semicolons). 


The method of translating a logical pathname consists of matching it against each 
first element of each translation, in succession. The order in the list is thus very 
important. At the first match, the translated pathname is produced by sending the 
:translate-wild-pathname message to the logical pathname with the first element 
of the translation as the source pattern and the second element of the translation as 
the target pattern. See the section "Wildcard Pathname Mapping”. See the section 
"Wildcard Directory Mapping”. 


Note that it is possible to have a translation that matches “everything else", as in 
the example below. In the presence of such a translation, it is impossible to have an 
undefined translation. 


Back-translation is performed by searching the second elements of the translations 
list, and translating in the other direction. 


A special version of wild pathname translation, called "reversible wild pathname 
translation", is used. The difference between regular wild pathname translation and 
reversible translation is in the treatment of a target wildcard pattern consisting 
solely of *. In regular translation, a target pattern of :wild causes the source 
component to be copied verbatim. This is a useful user-interface feature, but it 
causes dropping of information and resultant noninvertibility of the transformation. 
In reversible mapping, this feature is not present. Logical pathname translation and 
back-translation is done in this mode. 


Example: 

Source — Source Target 
Type patiern instance pattern Result 
Regular foo* foolish . foolish 
Reversible foo* foolish = lish 
Either * bar foo-* foo-bar 


Note that the inverse translation of foo-bar to bar cannot be accomplished under 
regular translation. 
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2.1.23.5 Flavor fs:undefined-logical-pathname-transiation replaces 

fs:undefined-logical-pathname-directory 
fs:undefined-logical-pathname-translation is a new condition flavor signalled 
when a logical pathname is referenced but has no translation to a physical 
pathname. It replaces fs:undefined-logical-pathname-directory. 


fs:undefined-logical-pathname-translation Flavor 
A logical pathname was referenced but is not defined. The 
slogical-pathname message returns the logical pathname. This flavor has a 
:define-directory proceed type, which prompts for a physical pathname 
whose directory component is the translation of the logical directory on the 
given host. 


2.1.24 fs:make-logical-pathname-host replaces fs:add-logical-pathname-host 


The function fs:add-logical-pathname-host is obsolete, though currently supported 
for compatibility. You should now use fs:make-logical-pathname-host to define a 
logical pathname host. This function loads the file sys:site;host-name.translations, 
which should contain a single form: a call to fs:set-logical-pathname-host. 


fs:make-logical-pathname-host host-name Function 
Defines host-name, which should be a string or symbol, to be the name of a 
logical pathname host. host-name should not conflict with the name of any 
existing host, logical or physical. 


This function loads the file sys:site;host-name.translations. This file should 
contain a single form: a call to fs:set-logical-pathname-host. The file is 
always loaded into the file-system package. See the function 
fs:set-logical-pathname-host. 


fs:make-logical-pathname-host not only loads this file but also arranges for 
the same file to be reloaded in the future. load-patches checks the 
translations file for each logical host that is defined in the current world; if 
any file has been changed it is reloaded. load-patches does this if and only 
if no specific systems are specified in its arguments. 


fs:make-logical-pathname-host alters the 
logical-pathnames-translation-files system so that it contains the 
translations files for all logical hosts defined in the current world. 
load-patches loads updated translations files by calling make-system on this 
system. 


When a world load is taken to a new site, the translation file for each logical 
host that is defined in the current world is reloaded from the new site’s 
sys:site; directory. This changes all logical pathnames to map into the new 
set of physical pathnames defined by the new site. 


An fs:make-logical-pathname-host form often appears in the file 
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sys:site;system-name.system. make-system looks for this file when given the 
name of an unknown system. In addition to a call to 
fs:make-logical-pathname-host, this file should contain a call to 
si:set-system-source-file, which specifies the logical pathname of the file 
containing the defsystem form. 
Example: 
Following are the contents of the file sys:site;cube.system: 

333 -X%- Mode: LISP; Package: USER -*- 


(fs:make-logical-pathname-host “cube” ) 
(si:set-system-source-file “cube” “cube: cube; cubpkg”) 


2.1.25 Previously undocumented function: fs:set-logical-pathname-host 


fs:set-logical-pathname-host creates a logical host and defines translations from 
logical directories on that host to physical directories on a physical host. A call to 
this function is the only form in the file sys:site;logical-host.translations, which is 
loaded by fs:make-logical-pathname-host. | 


fs:set-logical-pathname-host logical-host &key physical-host Function 


translations no-translate 
fs:set-logical-pathname-host creates a logical host named logical-host if it 
does not already exist. It then establishes translations of logical directories on 
logical-host to physical directories on physical-host. translations is a 
"translations" list of two-element lists of strings representing associated logical 
directories (source patterns) and physical directories (target patterns). For 
the format of the lists and the translation rules: See the section "Logical 
Pathname Translation". 


Logical directory names should be terminated by semicolons, but 
fs:set-logical-pathname-host accepts names without semicolons. Host 
names can appear in the strings in the translations list, but each logical host 
in a string must refer to the same host as logical-host, and each physical 
host in a string must refer to the same host as physical-host. If the physical 
pathname is on a TOPS-20 or VMS device, you must include the host name 
(either explicitly or implicitly, with an initial colon) so that the device is not 
taken to be the host. 


If no-translate is nil or unsupplied, the translation of every interned logical 
pathname is checked. Properties are copied from the old physical pathname 
to the the new one, and logical pathnames that now have no corresponding 
physical pathnames are uninterned. If no-translate is not nil this mapping is 
suppressed, and some physical pathnames might not get the properties of the 
logical pathname. The consequences of this are unknown. 


A call to fs:set-logical-pathname-host is usually the only form in the file 
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sys:site;logical-host.translations. This file is loaded by 
fs:make-logical-pathname-host (always in the file-system package), which 
also arranges for it to be reloaded in the future. load-patches checks this 
file for all logical hosts in the current world and reloads the file if it has 
changed. 
Example: 
Following is the contents of the file sys:site;cube.translations: 

333 -X- Mode: LISP; Package: FILE-SYSTEM -*- 


(set-logical-pathname-host “cube” 
*>:physical-host “pointer” 
*>:translations ’((“cube;" “>cube>"))) 


2.1.26 load-file-list obsolete 
The function load-file-list is obsolete. Use make-system instead. 


2.1.27 Change in arguments to print-herald 


print-herald no longer accepts an optional argument of the stream for display; 
display now always goes to standard-output. Instead, it accepts two keyword 
arguments: :as-if-band is used by disk-save, and :verbose controls the display of 
system version numbers. 


print-herald &key as-if-band verbose Function 
Prints out the herald message to standard-output. The herald message is 
what the machine prints when it is cold booted. It shows you the name of 
the FEP file or partition for the current world load, any comment added to 
the herald, a measure of the physical memory and swapping space available, 
the versions of the systems that are running, the site name, and the 
machine’s own host name. 


:as-if-band is used by disk-save to supply the name of the FEP file or 
partition of the saved world. :verbose controls the system version 
information displayed: if t, the version numbers of all systems are displayed; 
if nil, the version numbers of only those systems that differ from the release 
are displayed. 


2.1.28 Change in arguments to unadvise 


The three subforms of unadvise are now independent. If function is nil but class 
or position is not, unadvise removes only the specified classes or positions of advice 
for all functions. 
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unadvise optional function class position Special Form 
Removes pieces of advice. None of its subforms are evaluated. function and 
class have the same meaning as they do in the function advise. position 
specifies which piece of advice to remove. It can be the numeric index (0 
means the first one) or it can be the name of the piece of advice. 


unadvise can remove more than one piece of advice if some of its arguments 
are missing or nil. The arguments function, class, and position all act 
independently. A missing value or nil means all possibilities for that aspect 
of advice. For example, the following form removes all :before, :after, and 
saround advice named negative-arg-check on the factorial function. 


(unadvise factorial nil negative-arg-check) 


In this example unadvise removes all :around advice on all functions in all 
positions with all names. 


(unadvise nil :around) 


In this example unadvise removes all classes of advice named 
my-personal-advice on all functions. 


(unadvise nil nil my-personal-advice) 


(unadvise) removes all advice on all functions, since function, class, and 
position take on all possible values. 


2.1.29 Window System Changes Associated with Mouse Input 


2.1.29.1 Flavors tv:any-tyi-mixin and tv:list-tyi-mixin obsolete 

The flavors tv:any-tyi-mixin and tv:list-tyi-mixin are obsolete. The :tyi and 
:tyi-no-hang methods of tv:stream-mixin have been renamed to :any-tyi and 
sany-tyi-no-hang. The :tyi, :tyi-no-hang, :list-tyi, :mouse-or-kbd-tyi, and 
:mouse-or-kbd-tyi-no-hang methods of tv:any-tyi-mixin and tv:list-tyi-mixin 
have been moved to tv:stream-mixin. The tv:any-tyi-mixin and tv:list-tyi-mixin 
flavors still exist for compatibility, but they have no effect. 


2.1.29.2 Changes to :tyi, :tyi-no-hang, :list-tyi, :mouse-or-kbd-tyi, and 
:mouse-or-kbd-tyi-no-hang methods of tv:stream-mixin 
The :tyi method of tv:stream-mixin has been renamed to :any-tyi, and 
:tyi-no-hang has been renamed to :any-tyi-no-hang. The behavior of :any-tyi is 
somewhat more complex because of interactions with the input editor. If you want 
to receive input that might be integers (character codes) or blips (such as mouse 
clicks or activation blips), you should send these messages instead of :tyi and 
:tyi-no-hang. The :tyi and :tyi-no-hang methods now always discard blips; 
previously they did so only if tv:any-tyi-mixin was a component of the window 
flavor. You can send these messages if you want to receive only keyboard input. If 
you want to receive only blips, send the :list-tyi message. 


The :mouse-or-kbd-tyi and :mouse-or-kbd-tyi-no-hang methods are of use to 
Zwei but probably not to any other programs. 
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sany-tyi optional eof-action of tv:stream-mixin : Method 
Read and return the next character of input from the window, waiting if 
there is none. Where the character comes from depends on the value of the 
variable rubout-handler. Following is a summary of actions for each 
possible value of rubout-handler: 


nil If the input buffer contains unscanned input, take the 
next character from there. Otherwise, take the next 
character from the window’s I/O buffer. 


sread If the input buffer contains unscanned input, take the 
next character from there. Otherwise, if an activation blip 
or character is present, return that. Otherwise, enter the 
input editor. 


styi Take the next character from the window’s I/O buffer. 


If eof-action is nil, an error is signalled when an end-of-file is encountered. 
Otherwise, the method returns nil when an end-of-file is encountered. 


sany-tyi-no-hang optional eof-action of tv:stream-mixin Method 
Check the window’s I/O buffer and return the next character if it is 
immediately available. If no characters are immediately available, return nil. 
It is an error to call this method from inside the input editor (that is, if the 
value of rubout-handler is not nil). eof-action is ignored. This is used by 
programs that continuously do something until a key is typed, then look at 
the key and decide what to do next. 


:tyi &optional eof-action of tv:stream-mixin Method 
If called from outside the input editor, this is the same as :any-tyi, except 
that only integers and nil can be returned. Blips are discarded, unless the 
first element of the blip is :mouse-button and the second element is 
#\mouse-r-1, in this case, the method pops up a system menu. If called 
from inside the input editor with :full-rubout specified and if an activation 
blip is read when the input buffer is ome the method causes control to be 
returned from the input editor. 


styi-no-hang optional eof-action of tv:stream-mixin Method 
This is like :any-tyi-no-hang, except that only integers and nil can be 
returned. Blips are discarded, unless the first element of the blip is 
smouse-button and the second element is #\mouse-r-1; in this case, the 
method pops up a system menu. 


slist-tyi of tv:stream-mixin Method 
This is like :any-tyi except that it only returns blips and never returns 
integers. If it encounters any integers in the input stream, it discards them 
entirely (they are removed from the I/O buffer and the program never sees 
them). 
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smouse-or-kbd-tyi of tv:stream-mixin Method 
This is like :any-tyi, except that it returns two values, and it discards all 
blips but those whose first element is the symbol :mouse. In this case it 
returns the third element of the blip and the blip itself. Otherwise, if it sees 
an integer or nil, it returns that as both returned values. Blips whose first 
element is :mouse are produced by the user’s clicking on the mouse while 
inside the editor. This method is used only by Zwei. 


:mouse-or-kbd-tyi-no-hang of tv:stream-mixin Method 
This is like :any-tyi-no-hang, except that it returns two values, and it 
discards all blips but those whose first element is the symbol :mouse. In 
this case it returns the third element of the blip and the blip itself. 
Otherwise, if it sees an integer or nil, it returns that as both returned 
values. Blips whose first element is :mouse are produced by the user’s 
clicking on the mouse while inside the editor. This method is used only by 
Zwei. 


2.1.29.3 Flavors tv:list-mouse-buttons-mixin and tv:kbd-mouse-buttons-mixin 
obsolete 

The flavors tv:list-mouse-buttons-mixin and tv:kbd-mouse-buttons-mixin are 

obsolete. The facilities they provided for interpreting mouse clicks have been 

incorporated into the :mouse-click method of tv:essential-mouse. The flavors still 

exist for compatibility, but they have no effect. 


2.1.29.4 Changes to :mouse-click method of tv:essential-mouse 

The :mouse-click method of tv:essential-mouse now always sends blips to any 
window with an I/O buffer. The blips are of the form previously provided by 
tv:list-mouse-buttons-mixin. When the click is #\mouse-r-l, this method no 
longer pops up a system menu. 


This change allows programs to receive blips from any windows, including Lisp 
Listeners, without having to define special flavors of window. 


:mouse-click butions x y of tv:essential-mouse Method 
This method is called by the :mouse-buttons method of 
tv:essential-mouse, which is called by the default mouse handler when 
mouse buttons are pushed. buttons is an encoded integer representing the 
buttons pushed; use reader macros like #\mouse-r-1 to handle these integers 
in your program. x and y represent the position of the mouse at the time of 
the click, in the window’s outside coordinates. 


If the click is #\mouse-r-2, the :mouse-buttons method pops up a system 
menu. Otherwise, if the window has an I/O buffer, :mouse-click sends it a 
blip of the form (:mouse-button butions window x y). In addition, if the 
click is #\mouse-]-1, the window is selected. 


smouse-click methods are combined using :or combination, so the 
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smouse-click method of tv:essential-mouse runs only if no earlier method 
handles the message (and all earlier methods return nil). 


The following example illustrates the use of the :any-tyi message to receive both 
mouse and keyboard input to windows. It is a simple drawing program whose 

~ command loop accepts single keystroke or mouse click commands. This program does 
not require any special flavor of window in order to run. It runs using any window 
that can become the value of terminal-io. 


(defun draw-help () 

(send terminal-io ’:clear-window) 

(format t “Click the left mouse button to draw a square.~@ 
Click the middle mouse button to draw a circle.~@ 
Click the right mouse button to draw a triangle.~@ 
Type REFRESH to clear the screen.~@ 
Type END to exit.~@ 
Type HELP for documentation.~%")) 


(defun draw () 
(draw-help) 
(loop for command = (send terminal-io ”:any-tyi) 
do (cond ((fixp command) 
(selectq command 
(#\refresh (send terminal-io °:clear-window) ) 
(#\end (return)) 
(#\help (draw-help) ) 
(t (beep)))) 
((eq (car command) ”:mouse-button) 
(destructuring-bind (click nil x y) (cdr command) 
(selectq click 
(#\mouse-1-1 (send terminal-io °:draw-rectangle 20 20 x y)) 
(#\mouse-m-1 (send terminal-io *:draw-circle x y 10)) 
(#\mouse-r-1 (send terminal-io ’:draw-triangle 
x y (- x 10) (+ y 20) (+ x 10) (+ y 20))) 
(t (beep))))) 
(t (beep))))) 


2.1.29.5 Flavor tv:preemptable-read-any-tyi-mixin obsolete 

The flavor tv:preemptable-read-any-tyi-mixin is obsolete. It has been replaced by 
the :preemptable input editor option. The flavor still exists for compatibility, but it 
has no effect. The :preemptable-read message is supported by tv:stream-mixin 
for compatibility. 


:preemptable token Option 
A blip in the input stream causes control to be returned from the input 
editor immediately. Two values are returned: the blip and token, which is 
usually a keyword symbol. Any unscanned input typed before the blip 
remains in the input buffer, available to the next read operation from the 
stream. 
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2.1.30 :clear-screen, :clear-eol, and :clear-eof messages to windows renamed 


The following messages to windows have been renamed: 


:clear-screen is now :clear-window 


:clear-eol is now :clear-rest-of-line 


:clear-eof is now :clear-rest-of-window 


In Release 5.0, windows continue to accept the old messages for compatibility. The 
cold-load stream does not accept the new messages. 


In a future release, :clear-eof will become a no-op so that the meaning of this 
message will be compatible with that for noninteractive streams. The cold-load 
stream will accept the new messages. 


The :clear-eof message was renamed because it had two different meanings. For 
windows, it meant to clear the window from the cursor position to the bottom. For 
noninteractive streams, it meant to read the EOF indicator, so that data past the 
EOF could be read. The other two messages were renamed to be consistent with 
modern naming conventions. 


:clear-window of tv:sheet | Method 
Erase the whole window and move the cursor position to the upper left 
corner of the window. 


:clear-rest-of-line of tv:sheet Method 
Erase from the current cursor position to the end of the current line; that is, 
erase a rectangle horizontally from the cursor position to the inside right edge 
of the window, and vertically from the cursor position to one line-height 
below the cursor position. 


:clear-rest-of-window of tv:sheet Method 
Erase from the current cursor position to the bottom of the window. In 
more detail, first do a :clear-rest-of-line, and then clear all of the window 
past the current line. 


2.2 New Features in Lisp in Release 5.0 


2.2.1 New function: ed 


eql x y Function 
eql returns t if is arguments are eq, or if they are numbers of the same 
type with the same value, or (in Common Lisp) if they are character objects 
that represent the same character. The predicate = compares the values of 
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two numbers even if the numbers are of different types. Use equal or 
string-equal to compare the characters of two strings. 


Examples: 


(eq] ’a ’a) 
(eq! 3 3) 
(eq] 3 3.0) 
(eq! 3.0 3.0) = 
(eq! #/a #/a) = 
(eq] (cons ’a ’b) (cons ’a ’b)) => nil 
(eq] “foo” “FOO") => nil 


>t 
2% 
> nil 
>t 
>t 


The following expressions might return either t or nil: 


(eq] "(a . b) ’(a. b)) 
(eq! “foo” “foo") 


In Zetalisp: 


(eq? 1.0s0 1.0d0) => nil 
(eq] 0.0 -0.0) => nil 


2.2.2 New special form: defconstant 
The special form defconstant is used to declare a named constant. 


defconstant variable initial-value [documentation] Special Form 
defconstant declares the use of a named constant in a program. 
initial-value is evaluated and variable set to the result. The value of 
variable is then fixed. It is an error if variable has any special bindings at 
the time the defconstant form is executed. Once a special variable has been 
declared constant by defconstant, any further assignment to or binding of 
that variable is an error. | 


The compiler is free to build assumptions about the value of the variable into 
programs being compiled. If the compiler does replace references to the name 
of the constant by the value of the constant in code to be compiled, the 
compiler takes care that such "copies" appear to be eql to the object that is 
the actual value of the constant. For example, the compiler may freely make 
copies of numbers, but it exercises care when the value is a list. 


In Zetalisp, defconstant and defconst are essentially the same if the value 
is other than a number, a character, or an interned symbol. However, if the 
variable being declared already has a value, defconst freely changes the 
value, whereas defconstant queries before changing the value (unless the 
defconstant form is in a patch file). defconstant assumes that changing 
the value is dangerous because the old value might have been incorporated 
into compiled code, which would be out of date if the value changed. 


In general, you should use defconstant to declare constants whose value is a 
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number, character, or interned symbol and is guaranteed not to change. An 
example is . The compiler can optimize expressions that contain references 
to these constants. If the value is another type of Lisp object or if it might 
change, you should use defconst instead. 


documentation, if provided, should be a string. It is accessible to the 
documentation function. 


2.2.3 New special forms: block and tagbody 


block is a primitive special form used with return-from for premature exit from a 
piece of code. tagbody is a primitive special form used with go for unstructured 
transfer of control. prog, do, and their variants are effectively constructed out of 
let, block, and tagbody forms. 


block name form... Special Form 


block evaluates each form in sequence and normally returns the (possibly 
multiple) values of the last form. However, (return-from name value) or 
one of its variants (a return or return-list form) might be evaluated during 
the evaluation of some form. In that case, the (possibly multiple) values that 
result from evaluating value are immediately returned from the innermost 
block that has the same name and that lexically contains the return-from 
form. Any remaining forms in that block are not evaluated. 


name is not evaluated. It must be a symbol. 


The scope of name is lexical. That is, the return-from form must be inside 
the block itself (or inside a block that that block lexically contains), not inside 
a function called from the block. 


do, prog, and their variants establish implicit blocks around their bodies; you 
can use return-from to exit from them. These blocks are named nil unless 
you specify a name explicitly. 


For example, the following two forms are equivalent: 


(cond ((predicate x) 
(do-one-thing) ) 
(t 
(format t “The value of X is ~S~%" x) 
(do-the-other-thing) 
(do-something-else-too) )) 


(block deal-with-x 
(when (predicate x) 

(return-from deal-with-x (do-one-thing) )) 
(format t “The value of X is ~S~%" x) 
(do-the-other-thing) 
(do-something-else-too) ) 
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tagbody tag-or-statement... Special Form 
The body of a tagbody form is a series of tags or statements. A tag is a 
symbol; a statement is a list. tagbody processes each element of the body in 
sequence. It ignores tags and evaluates statements, discarding the results. If 
it reaches the end of the body, it returns nil. 


If a (go tag) form is evaluated during evaluation of a statement, tagbody 
searches its body and the bodies of any tagbody forms that lexically contain 
it. Control is transferred to the innermost tag that is eq to the fag in the 
go form. Processing continues with the next fag or statement that follows 
the fag to which control is transferred. 


The scope of the fags is lexical. That is, the go form must be inside the 


tagbody construct itself (or inside a tagbody form that that tagbody 
lexically contains), not inside a function called from the tagbody. 


do, prog, and their variants use implicit tagbody constructs. You can 
provide tags within their bodies and use go forms to transfer control to the 
tags. 
For example, the following two forms are equivalent: 

(dotimes (i n) (print i)) 


(let ((i 0)) 
(when (plusp n) 
( tagbody 
Toop 
(print i) 
(setq i (1+ i)) 
(when (< in) (go loop))))) 


2.2.4 New special forms: multiple-value-call and multiple-value-prog1 


multiple-value-call and multiple-value-progl are new special forms for returning 
multiple values. multiple-value-call evaluates forms and uses the (possibly 
multiple) values as arguments to a function. multiple-value-prog! is like progl 
except that it can return multiple values from its first form. 


multiple-value-call function body ... Special Form 
multiple-value-call first evaluates function to obtain a function. It then 
evaluates all the forms in body, gathering together all the values of the forms 
(not just one value from each). It gives these values as arguments to the 
function and returns whatever the function returns. 


For example, suppose the function frob returns the first two elements of a 
list of numbers: 


(multiple-value-call #’+ (frob ’(1 2 3)) (frob ’(4 5 6))) 
<=> (+ 12 4 5) => 12. 
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multiple-value-prog] first-form body... Special Form 
multiple-value-prog] is like progl, except that if its first form returns 
multiple values, multiple-value-progl returns those values. 


2.2.5 3600 Supports leee Single- and Double-precision Floating Point 


The 3600 supports IEEE-standard single-precision and double-precision floating-point 
numbers. Single-precision floating-point numbers have a precision of 24 bits, or 
about 7 decimal digits. Their range is from 1.1754944e-38 to 3.4028235e38. Double- 
precision floating-point numbers have a precision of 53 bits, or about 16 decimal 
digits. Their range is from 2.2250738585072014d-308 to 1.7976931348623157d308. 


Number objects exist that are outside the upper and lower limits of the ranges for 
single and double precision. Larger than the largest number is +le= (or +1d= for 
doubles). Smaller than the smallest number is -le= (or -ld= for doubles). Smaller 
than the smallest normalized positive number but larger than zero are the 
“denormalized" numbers. Some floating-point objects are Not-a-Number (NaN); they 
are the result of (//.0.0 0.0) (with trapping disabled) and like operations. 


IEEE numbers are symmetric about zero, so the negative of every representable 
number is also a representable number (on the 3600 only). Zeros are signed in 
IEEE format, but +0.0 and -0.0 act the same arithmetically. For example: 

(= +0.0 -0.0) => t 

(plusp 0.0) => nil 

(plusp -0.0) => nil 

(zerop -0.0) => t 

(eq 0.0 -0.0) => nil 


See the IEEE standard: Microprocessor Standards Committee, IEEE Computer 
Society, "A Proposed Standard for Binary Floating-Point Arithmetic: Draft 8.0 of 
IEEE Task P754," Computer, March 1981, pp. 51-62. 


Some related functions have been added or extended. The mathematical functions, 
such as sin and log, have been modified to accept both single- and double-precision 
arguments. 


2.2.5.1 float returns a single-precision number 
float always coerces its argument to a single-precision floating-point number, even if 
the argument is a double-precision number. 


float x Function 
Converts any kind of number to a flonum on the LM-2 and to a single- 
precision floating-point number on the 3600. Note that, on the 3600, float 
reduces a double-precision argument to single precision. 
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2.2.5.2 New function: dfloat 
dfloat converts its argument to a double-precision floating-point number. 


dfloat x Function 
(3600 only) Converts any kind of number to a double-precision floating-point 
number. 


2.2.5.3 New data types: -:single-float and :double-float 

On the 3600, an object of type :single-float is a single-precision floating-point 
number. An object of type :double-float is a double-precision floating-point number. 
The :float data type is the union of these two types. 


See the function typep. 


2.2.5.4 floatp returns t for any floating-point number 
floatp returns t if its argument is either a single-precision or a double-precision 
floating-point number. 


floatp arg Function 
floatp returns t if its argument is a floating-point number, that is, a flonum 
or a small flonum on the LM-2 or a single- or double-precision floating-point 
number on the 3600. Otherwise it returns nil. 


2.2.5.5 New functions: sys:single-float-p, sys:double-float-p 
sys:single-float-p and sys:double-float-p are predicates to distinguish between _ 
single- and double-precision floating-point numbers. 


sys:single-float-p arg Function 
(3600 only) Returns t if arg is a single-precision floating-point number, 
otherwise nil. 


sys:double-float-p arg Function 
(3600 only) Returns t if arg is a double-precision floating-point number, 
otherwise nil. 


2.2.6 New function: mod 


mod x y Function 
The same as remainder, except that the returned value has the sign of the 
second argument instead of the first. When there is no remainder, the 
returned value is 0. 


Examples: 


(mod -3 2) => 1 
(mod 3 -2) => -1 
(mod -3 -2) => -1 
(mod 4 -2) => 0 
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2.2.7 New functions: byte, byte-size, byte-position 


byte creates a byte specifier; byte-size extracts the size field of a byte specifier; 
byte-position extracts the position field of a byte specifier. 


byte size position Function 
Creates a byte specifier for a byte size bits wide, position bits from the right- 
hand (least-significant) end of the word. 


Example: 
(Idb (byte 3 4) #012345) => 6 


byte-size byte-specifier Function 
Extracts the size field of byte-specifier. You can use setf on this form: 
(setq a (byte 3 4)) 
(setf (byte-size a) 2) 
(byte-size a) => 2 


byte-position byte-specifier Function 
Extracts the position field of byte-specifier. You can use setf on this form: 
(setq a (byte 3 4)) 
(setf (byte-position a) 2) 
(byte-position a) => 2 


2.2.8 New Metering Tools for the 3600 
A new set of program counter (PC) metering tools is available on the 3600. 


Program counter (PC) metering is a tool to allow the user to determine where time 
is being spent in a given program. 


PC metering essentially produces a histogram. At regular intervals, the Front End 
Processor (FEP) causes the main processor to task switch to special microcode. This 
microcode looks up the macro PC that contains the virtual address of the 
macroinstruction that the processor is currently executing. If this virtual address 
falls outside the monitored range, the microcode increments a count of the number 
of PCs that missed the monitored range. If the address is within the monitored 
range, the microcode subtracts the bottom of the monitored range from the PC, 
leaving a word offset. It then divides the word offset by the number of words per 
bucket and uses that as an index into the monitor array. Next, it increments that 
indexed element of the monitor array. This can only measure statistically where the 
macro PC is pointing; for the results to be valid, a relatively large number of samples 
per bucket must be available. FEP version 13 samples at about 170 samples per 
second, so the PC monitoring with that version is probably valid only for sessions 
that take longer than five to ten seconds. 


You specify some range of the program to be monitored. The range is specified by 
lower and upper bounding addresses, and compiled functions that lie between those 
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addresses are monitored. The range is divided into some number of buckets. The 
relative amount of time that the program spends executing in each bucket is 
measured. 


The parameters you specify are the range of addresses to be monitored, the number 
of buckets, and an array with one word for each bucket. 


Some of the metering functions deal with compiled functions. In this context a 
compiled function is either a compiled code object or an art-16b array, into which 
escape functions (small, internal operations used by the microcode) compile. 


meter:make-pc-array size Function 
Makes a PC array with size number of buckets. This storage is wired, so 
you probably do not want this to be more than about 64. pages, or 
(* 64. sys:page-size) words. 


meter:monitor-all-functions Function 
Changes the microcode parameters so that the monitor array refers to every 
possible function in the Lisp world at the time of the execution of 
meter:monitor-all-functions. This usually causes many functions to map 
into a single bucket, and is therefore useful in obtaining a first estimate of 
which functions are using a significant portion of the execution time. 


meter:expand-range sfart-bucket &optional (end-bucket start-bucket) Function 
Changes the microcode parameters so that the entire monitor array refers 
only to the functions previously contained within the range specified by 
start-bucket and end-bucket. start-bucket and end-bucket are inclusive bounds. 


meter:report optional function-list Function 
Prints a summary of the data collected into the monitor array. You should 
not have to supply the function-list argument. 


meter:start-monitor optional (clear t) Function 
Enables collection of PC data. If clear is not nil, the contents of the monitor 
array are cleared. If clear is nil, the array is not modified, so that the new 
samples are simply added to the old. 


meter:stop-monitor Function 
Disables further collection of PC data. 


meter:print-functions-in-bucket bucket Function 
Prints all the compiled functions that map into the specified bucket. 


meter:list-functions-in-bucket bucket Function 
Returns a list of all the compiled functions that map into the specified bucket. 
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meter:range-of-bucket bucket Function 
Returns the virtual address range that maps into the specified bucket. 


meter:with-monitoring clear body... Macro 
Enables monitoring around the execution of body. If clear is not nil, clears 
the monitor array first. See the function meter:start-monitor. 


meter:map-over-functions-in-bucket bucket function &rest args Function 
Calls function for every compiled function in the specified bucket. The first 
argument to function should be the compiled function, and any remaining 
arguments are args. 


meter:function-range function Function 
Returns two values, the buckets that contain the first and last instructions of 
function. 

meter:function-name-with-escapes object Function 


If object is a compiled function, returns the function spec of the compiled 
function. Otherwise, returns nil. 


2.2.9 New Meters for the LM-2 


Five new microcode meters have been added for the LM-2. 


sys:%tv-clock-counter Meter 
Counts down every 60th of a second. When it reaches zero it resets from 
the sys:%tv-clock-rate meter and causes a sequence break if enabled. 


sys:%count-disk-page-read-operations-in-transporter Meter 
The number of page faults that went to the disk in the transporter (part of 
the garbage collector). 


sys:%count-disk-page-read-operations-in-scavenger Meter 
The number of page faults that went to the disk in the scavenger (part of 
the garbage collector). 


sys:%transporter-run-time _ Meter 
The number of microseconds spent in the transporter (part of the garbage 
collector). 

sys:%scavenger-run-time Meter 


The number of microseconds spent in the scavenger (part of the garbage 
collector). 
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2.2.10 New special form: define-symbol-macro 


A symbol macro translates a symbol into a substitute form. When the Lisp 
evaluator is given a symbol, it checks whether the symbol has been defined as a 
symbol macro. If so, it evaluates the symbol’s replacement form instead of the 
symbol itself. Use define-symbol-macro to define a symbol macro. 


define-symbol-macro name form Special Form 
This special form defines a symbol] macro. name is a symbol to be defined as 
a symbol macro. form is a Lisp form to be substituted for the symbol when 
the symbol is evaluated. A symbol macro is more like a subst than a macro: 
form is the form to be substituted for the symbol, not a form whose 
evaluation results in the substitute form. 


A symbol defined as a symbol macro cannot be used in the context of a 
variable. You cannot use setq on it, and you cannot bind it. You can use 
setf on it: setf substitutes the replacement form, which should access 
something, and expands into the appropriate update function. Example: 


(def ine-symbol-macro foo (+ 3 bar)) 
(setq bar 2) 
foo => 5 


Here is a more complex example. Suppose you want to define some new 
instance variables and methods for.a flavor. You want to test the methods 
using existing instances of the flavor. For testing purposes, you might use 
hash tables to simulate the instance variables, using one hash table per 
instance variable with the instance as the key. You could then implement an 
instance variable x as a symbol macro: 


(defvar x-hash-table (make-hash-table) ) 
(define-symbol-macro x (send x-hash-table ’:get-hash self) ) 


To simulate setting a new value for x, you could use (setf x value), which 
would expand into (send x-hash-table ’:put-hash self value). 
2.2.11 New function: undefflavor 


undefflavor reverses the effect of a defflavor. 


undefflavor flavor-name Function 
Removes the flavor named by flavor-name. 
2.2.12 New option for defflavor: -:required-init-keywords 


srequired-init-keywords declares that some init keywords must be specified when 
making an instance of a flavor. 
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srequired-init-keywords Option 
The arguments are keywords. It is an error to try to make an instance of 
this flavor or any incorporating it without specifying these keywords as 
arguments to make-instance (or instantiate-flavor) or a 
:default-init-plist option in a component flavor. This error can often be 
detected at compile time. 


2.2.13 New option for defflavor: :mixture 


:mixture lets you define a family of flavors and use init options to select the 
member of the family to instantiate. © 


:mixture Option 
Defines a family of related flavors. When make-instance (or 
instantiate-flavor) is called, it uses keywords in the init-plist to decide 
which flavor of the family to instantiate. Thus, init options can be used to 
select the flavor as well as instance-variable values. 


The ancestral flavor is the one that includes the :mixture option in its 
defflavor. The flavors in the family are automatically constructed by mixing 
various mixins with the ancestral flavor. The names for the family members 
are chosen automatically. The name of such an automatically constructed 
flavor is a concatenation of the names of its components, separated by 
hyphens; however, obvious redundancies are removed heuristically. 


defflavor of the ancestral flavor also defines the automatically constructed 
flavors. compile-flavor-methods of the ancestral flavor also compiles 
combined methods of the automatically constructed flavors. 


The :mixture option has the following form: 


(:mixture spec spec ...) 


Each spec is processed independently, and all the resulting mixins are mixed 
together. A spec may be any of the following: 


(keyword mixin) 
Add mixin if the value of keyword is t; add nothing if nil. 


(keyword (value mixin) (value mixin) ...) 
Look up the value of keyword in this alist and add the specified mixin. 


(keyword mixin subspec subspec ...) 


(keyword (value mixin subspec subspec ...) ...) 
Subspecs take on the same forms as specs. Subspecs are processed 
only when the specified keyword has the specified value. Use them 
when there are interdependencies among keywords. 
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A mixin is one of the following: 


symbol The name of a flavor to be mixed in 

nil No flavor needs to be mixed in if the keyword takes on 
this value 

string This value is illegal: Signal an error with the string as the 
message 


make-instance and instantiate-flavor check that the keywords are given 
with legal values. . 


Example: 


(defflavor cereal-stream (...) (stream) 


(:init-keywords :characters :direction 
:ascii :hang-up-when-close) 
(:mixture (:characters 
(t nil (:direction 
(:in buffered-1ine-input-stream) 
(:out buffered-output-character-stream) ) 
(:ascii ascii-translating-character-stream) } 
(nil nil (:direction (:in buffered-input-stream) 
(:out buffered-output-stream) ) 
(:ascii “Ascii translation is not 
meaningful for binary streams” ))) 
(:hang-up-when-close hang-up-when-close-mixin) )) 


Note the need for an :init-keywords declaration for any keywords that are 
used only in the :mixture declaration. 


In this declaration, any kind of stream may have a :hang-up-when-close 
option. The :characters option does not itself add any mixins (hence the 
nil), but the processing of the :direction option depends on whether it is 
used with a character stream or a binary stream. The :ascii option is 
allowed only for character streams, and we specify an error message if it is 
used with a binary stream. If :ascii had not been mentioned in the 
:characters nil case, the keyword would have been ignored by 
make-instance. on the assumption that an :init method was going to do 
something with it. 


2.2.14 New format directives: ~» and “+ 
“stext™« is useful for indenting fext. 


“»text“+ indents text at the cursor position that is current at the time of the ~». A 
“» must be terminated with a “+. ~» and “+ can be nested like “[~] and “<>. This 
directive is especially useful in making error messages indent properly. 
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Example: 


(format t "~&Error: ~2~A~e" "File not found 
for FOO.LISP.1") 


prints 


Error: File not found 
for FOO.LISP.1 


“+ terminates a ~». It is undefined elsewhere. 


2.2.15 New special form: format:defformat 


format:defformat defines a new format directive. The function associated with 
the directive should send its output to the value of format:*format-output*. 
Directives that were written in the old style and that send their output to 
standard-output still work, but you should begin to convert them to the new form. 


format:defformat directive (arg-type) arglist body ... Special Form 
Defines a new format directive. 


directive is a symbol that names the directive. If directive is longer than one 
character, it must be enclosed in backslashes in calls to format: 

(format t "~\foo\” ...) 
directive is usually in the format package; if it is in another package, the 
user must specify the package in calls to format: 

(format t "~\foo:bar\" ...) 
format:defformat defines a function to be called when format is called 


using directive. body is the body of the function definition. arg-type is a 
keyword that determines the arguments to be passed to the function as 


arglist: 

:no-arg The directive uses no arguments. The function is passed 
one argument, a list of parameters to the directive. The 
value returned by the function is ignored. 

:one-arg The directive uses one argument. The function is passed 
two arguments: the argument associated with the 
directive and a list of parameters to the directive. The 
value returned by the function is ignored. 

:multi-arg The directive uses a variable number of arguments. The 


function is passed two arguments. The first is a list of the 
first argument associated with the directive and all the 
remaining arguments to format. The second is a list of 
parameters to the directive. The function should cdr 
down the list of arguments, using as many as it wants, 
and return the tail of the list so that the remaining 
arguments can be given to other directives. 
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The function can examine the values of format:colon-flag and 
format:atsign-flag. If format:colon-flag is not nil, the directive was given 
a: modifier. If format:atsign-flag is not nil, the directive was given a 

@ modifier. 


The function should send its output to the stream that is the value of 
format:*format-output"*. 


Here is an example of a format directive that takes one argument and prints 
a number in base 7: 


(format:defformat format:base-7 (:one-arg) (argument parameters) 
parameters ; ignored 
(let ((base 7)) 
(princ argument format: *format-output*) )) 


Now: 
(format nil "> ~\base-7\ <" 8) => “> 11 <* 


2.2.16 New Features Associated with the Input Editor (Rubout Handler) 


This section describes new features in the input editor and reading functions. For 
incompatible changes: See the section "Incompatible Changes to the Input Editor 
(Rubout Handler)". . 


2.2.16.1 New input editor options: :no-input-save, :activation, :command, 
:preemptable 

The :no-input-save option causes the input editor not to save the scanned contents 

of the buffer on the input history. 


:no-input-save 7 Option 
The input editor does not save the scanned contents of the input buffer on 
the input history when returning from the reading function. This is 
intended for use by functions such as fquery that use the input editor to 
ask simple questions whose responses are not worth saving. yes-or-no-p 
uses :no-input-save by default. 


sactivation allows a reading function (like read or readline) to recognize activation 
characters. 


sactivation function &rest arguments Option 
For each character typed, the input editor invokes function with the 
character as the first argument and arguments as the remaining arguments. 
If the function returns nil, the input editor processes the character as it 
normally would. Otherwise, the cursor is moved to the end of the input 
buffer, a rescan of the input is forced (if one is pending), and the blip 
(:activation character numeric-arg) is returned by the final sending of the 
sany-tyi message to the stream. Activation characters are not inserted into 
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the input buffer, nor are they echoed by the input editor. It is the 
responsibility of the reading function to do any echoing. For instance, 
readline, not the input editor, types a Newline at the end of the input 
buffer when RETURN, END, or LINE is pressed. 


:command allows control to be returned from the input editor on reading special 
characters. 


:command function &rest arguments Option 


This option is used to implement nonediting single-keystroke commands. For 
each character typed, the input editor invokes function with the character as 
the first argument and erguments as the remaining arguments. If the 
function returns nil, the input editor processes the character as it normally 
would. Otherwise, control is returned from the input editor immediately. 
Two values are returned: a blip of the form (:command character 
numeric-arg) and the keyword :command. Any unscanned input typed 
before the command character remains in the input buffer, available to the 
next read operation from the stream. 


:preemptable allows control to be returned from the input editor on reading blips. 


:preemptable foken Option 


A blip in the input stream causes control to be returned from the input 
editor immediately. Two values are returned: the blip and token, which is 
usually a keyword symbol. Any unscanned input typed before the blip 
remains in the input buffer, available to the next read operation from the 
stream. 


This example illustrates the use of the :command, :preemptable, and :prompt 
input editor options. It isa simple command loop that reads different kinds of 
commands -- typed Lisp expressions, single-keystroke commands, and mouse clicks. 
The Lisp expressions are read using the si:read-or-end function. You can provide 
four kinds of input: 


Input Action | 

END Exit the command loop 

Lisp form Print form on next line 

Mouse click Display type of click and mouse coordinates 


Single-key command 


Display keystroke 


The predicate for detecting a single-keystroke command simply checks for the Super 
bit. In a more complex program, it might look up the character in a command 


table. 
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(defun command-char-p (c) (ldb-test %%kbd-super c)) 


(defun command-loop () 
( loop 
do (multiple-value-bind (value flag) 
(si:read-or-end standard-input nil ‘((:command command-char-p) 
(:preemptable :blip) 
(:prompt “Command loop input: “))) 
(selectq flag 
(:end 
(format t “Done”) 
(return t)) 
(:blip 
(selectq (car value) 
(:mouse-button 
(destructuring-bind (click nil x y) (cdr value) 
(format t “~C click at ~D, ~D" click x y))) 
(otherwise (format t “Random blip -- ~S" value)))) 
( : command 
(format t “Execute ~:C command” (second value) )) 
(otherwise 
(format t "~&Value is ~S" value)))))) 


2.2.16.2 New macro: with-input-editing 
with-input-editing defines a context in which a reading function can be called 
using the input editor. 


with-input-editing (stream-var input-editor-options parameters Macro 
; keyword) body... 
This macro provides a convenient way of invoking the input editor for use by 
a reading function. It establishes a context in which input editing should be 
provided. Use this macro instead of sending a :rubout-handier message 
directly. 


All the "arguments" are optional. stream-var is a variable bound to the 
stream from which characters are read; if stream-var is not provided or is nil, 
standard-input is used. input-editor-options, if provided and not nil, should 
evaluate to a list of options suitable for the first argument to the 
:rubout-handler message. 


keyword determines the activation characters for the input editor: 


Value Activation characters 
nil None 


:end-activation #\end 
sline-activation +#\end, #\return, and #\line 
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sline #\end, #\return, and #\line. In addition, a Newline is 
echoed after the reading function returns. 


The macro defines an internal function with body as its body and 
(stream-var . parameters) as its argument list. When the function containing 
the with-input-editing form is called from outside the input editor, the 
stream is sent a :rubout-handler message if it handles it. The arguments 
to the :rubout-handler message are the list of input-editor-options, including 
any activation option determined by keyword; the internal function; and any 
arguments to the internal function. If the function containing the 
with-input-editing form is called from inside the input editor or if the 
stream does not handle the :rubout-handler message, the internal function 
is called instead. 


parameters must be nil or a list of arguments and local variables that are 
defined outside the scope of the with-input-editing form but referenced 
within it. If a lexically external variable x is referenced within body but does 
not appear in the parameters list, the compiler issues the warning, "Lexical 
scoping not implemented for the variable x." 


The following example defines a reading function. 


(defun read-number 
(&optional (stream standard-input) input-editor-options 
input-radix or-nil) 
(with-input-editing (stream input-editor-options (input-radix or-nil) 
: Tine) 
(loop with number 
with ibase = (or input-radix ibase) 
for string = (readline-or-nil stream) 
do (cond ((not string) 
(if or-nil (return nil))) 
((numberp (setq number (ignore-errors 
(read-from-string string) ))) 
(return number )) 
(t (sys:parse-ferror 


"“A~:[~; decimal~] number~:[~;, or <Return> for none,~] ~ 


is required” 
(= ibase 10.) or-nil)))))) 


2.2.16.3 New function: read-delimited-string 
read-delimited-string allows reading from a stream until a delimiter character is 
encountered. 


read-delimited-string optional (delimiters #\end) Function 


(stream standard-input) (eof nil) 
(input-editor-options nil) &rest 
(make-array-args °(100. :type art-string)) 
delimiter is either a character or a list of characters. Characters are read 
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from stream until one of the delimiter characters is encountered. The 
characters read up to the delimiter are returned as a string. This function 
may be invoked from inside or outside the input editor. If invoked from 
outside the input editor, the delimiter characters are set up as activation 
characters. The eof argument is treated the same way as the eof argument 
to the :tyi message to noninteractive streams. input-editor-options are passed 
on as the first argument to the :rubout-handler message, after having an 
sactivation entry prepended. make-array-args are arguments to be passed 
to make-array when constructing the string to return. 


-read-delimited-string returns four values: 


e The string 
¢ An eof flag, if the eof parameter was nil 
e The character that delimited the string 


e Any numeric argument given the delimiter character 


This function is used by readline, qsend, and the :delimited-string option 
for prompt-and-read. 


Examples: 


The following reads characters until END is typed and returns a string at least 
200. characters long with a leader-length of 3: 


(read-delimited-string #\end standard-input nil nil 200. :leader-length 


Petes ~ Bolte orwse Ted. ~ ser a DN ae see. Te adhered. wee BE Pd! as Au? owed BD’) a 


The following is the same as (readline), except that it does not echo axtu-s > 
Newline after the string is activated: as 


4D 
(read-delimited-string snrenyee #\line #\end) ) Nog 


a) Ley ak > 
‘a oan 


\ 


A simple word parser: 
(read-delimited-string ’(#\space #/, #/. #/?)) 


For a more complex example of a sentence parser that uses 
read-delimited-string: See the section "Examples of Use of the Input Editor". 


2.2.16.4 New optional argument to read 
A list of input editor options can now be passed to read as an Stina argument. 


read &optional (stream standard-input) eof-option Function 
input-editor-options 
read reads in the printed representation of a Lisp object from stream, builds 
a corresponding Lisp object, and returns the object. For details: See the 
section "Input Functions". 


(This function can take its arguments in the other order, for Maclisp 
compatibility only.) 
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2.2.16.5 New function: si:read-or-end 


read-or-end optional (stream standard-input) eof-option Function 
input-editor-options 

This function is like read, except that if it is reading from an interactive 
stream and the user presses END as the first character or the first character 
after only whitespace characters, it returns two values, nil and :end. If it 
encounters any nonwhitespace characters, END has the same meaning as for 
read. eof-option has the same meaning as for other reading functions. 
input-editor-options are passed to the input editor if the stream supports it. 


The :expression-or-end and :eval-form-or-end options for 
prompt-and-read invoke si:read-or-end. 


2.2.16.6 readline and readline-trim return additional values 
readline and readline-trim now return four values: a string; an eof flag; the 
delimiter that terminated the string; and any numeric argument given the delimiter. 


readline &optional (stream standard-input) eof-option | Function 
input-editor-options 
readline reads in a line of text. If called from inside the input editor or if 
reading from a stream that does not support the input editor, the line is 
terminated by a Newline character. If the stream supports the input editor 
and readline is called from outside the input editor, the line is terminated 
by RETURN, LINE, or END. 


This function is usually used to get a line of input from the user. If stream 
supports the input editor, readline calls read-delimited-string, and 
input-editor-options is passed as the list of options to the input editor. 


readline returns four values: 


e The line as a character string, without the Newline character. 


e An eof flag, if eof-option was nil. This is t if the line was terminated 
because end-of-file was encountered, or nil if it was terminated because 
of a RETURN, LINE, or END character. 


e The character that delimited the string. 


e Any numeric argument given the delimiter character. 
See the function read-delimited-string. 


readline-trim optional (stream standard-input) eof-option Function 
input-editor-options 
readline-trim trims leading and trailing whitespace from string input. 
"Whitespace" means spaces, tabs, or newlines. It takes the same arguments 
as the normal readline and returns the same four values. 
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Examples: 


(readline-trim) exciting option RETURN => 
“exciting option” 

NIL 

141 

NIL 


(readline-trim)RETURN => 


NIL 
141 
NIL 


The :string-trim option for prompt-and-read and 
tv:choose-variable-values uses readline-trim. 


2.2.16.7 New function: readline-or-nil 
readline-or-nil returns a string trimmed of white space, or else nil if the string is 
empty. 


readline-or-nil optional (stream standard-input) eof-option Function 
input-editor-options 
Like readline-trim, except that it returns a first value of nil instead of the 
empty string if the input string is empty. 


The :string-or-nil option for prompt-and-read and the :string-or-nil 
choose-variable-values keyword use readline-or-nil. 


See the function readline-trim. 


2.2.16.8 New methods of tv:stream-mixin: :start-typeout, :finish-typeout, 
‘rescanning-p, :force-rescan, :replace-input, :read-bp 

Six new methods have been added to tv:stream-mixin for communication between 

the input editor and sophisticated reading functions that offer typeout and 

completion. The methods are :start-typeout, :finish-typeout, :rescanning-p, 

:force-rescan, :replace-input, and :read-bp. 


:start-typeout type &optional spacing of tv:stream-mixin Method 
Informs the input editor that typeout to the window will follow. The word 
“typeout" is used in the name of this message because this is very similar to 
typeout in the editor, even though typeout windows are not actually used. 
type can be one of the following keywords: 


Keyword Action 


sinsert _ Typeout is inserted before the current input, as is done 
with notifications or input editor documentation. 


soverwrite Like sinsert, but the next time :insert or :overwrite 
typeout is performed, this typeout is overwritten. 
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sappend Typeout appears after the current input, which remains 
visible before the typeout. This is the style used by 
break. 


:temporary Typeout appears after the current input and is erased 
after the user types a character. 


spacing can be one of the following keywords: 


Keyword Action 

none No spacing before typeout. 

:fresh-line Typeout begins at the beginning of a line. 
sblank-line A blank line precedes typeout. 


If spacing is not specified, a default that depends on type is computed. 


:‘finish-typeout optional spacing erase? of tv:stream-mixin Method 
Completes typeout to the window and causes the input buffer to be 
refreshed. In the case of :temporary typeout, the erase? parameter is used 
to indicate whether or not the typeout overwrote part of the current input 
by wrapping around the screen. It is the responsibility of the program doing 
the typeout to keep track of how much is output. 


spacing can be one of the following keywords: 


Keyword Action 

none No spacing before typeout. 

:fresh-line Typeout begins at the beginning of a line. 
:blank-line A blank line precedes typeout. 


If spacing is not specified, a default that depends on the type argument to 
the :start-typeout method is computed. 


srescanning-p of tv:stream-mixin Method 
This message can be sent by a read function that uses the input editor to 
determine whether the next character returned by :tyi will come from the 
input buffer or from the keyboard. If t is returned, the input is being 
rescanned and the next character will come from the input buffer. If nil is 
returned, the next character will come from the keyboard. 


:force-rescan of tv:stream-mixin Method 
This message can be sent by a read function that uses the input editor to 
force a rescan of the current input. Before this message is sent, usually 
some global state has changed and the contents of the input buffer are 
interpreted differently. 
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sreplace-input n-chars string &optional (begin 0) end = of Method 
tv:stream-mixin 

This message can be sent by a read function that uses the input editor to 
provide completion of the current input. n-chars is the number of characters 
to be removed from the end of the input buffer and erased from the screen. 
The substring of string determined by begin and end is then displayed on the 
screen. The scan pointer is left after the string, and a rescan does not take 
place. If a rescan takes place at some later time, the characters in string will 
be seen as input. 


sread-bp of tv:stream-mixin Method 
Returns the value of the scan pointer. This is for the benefit of read 
functions that might want to return a pointer into the input buffer when 


signalling an error of type sys:parse-error. 


2.2.16.9 New variable: tv:rh-typeout-default . 
tv:rh-typeout-default controls the style of typeout performed by the input editor. 


tv:rh-typeout-default Variable 
Controls the style of typeout performed by the input editor. Permissible 
values are the keywords acceptable as the type argument to the 
:start-typeout method of tv:stream-mixin. These are :insert, :overwrite, 
sappend, and :temporary. The default value is :insert. 


2.2.16.10 Using the Input Editor: Examples 

This series of examples shows several different ways of using the input editor, 
gradually increasing in complexity. The examples are also available in the file 
sys: examples; interaction.lisp. 


We refer to functions whose names begin with “read-" as “reading functions" or 
"readers", since they read individual characters and construct a Lisp object as a 
returned value. Examples of readers the Lisp system provides are read, readline, 
and read-delimited-string. read returns Lisp objects of many types. readline 
and read-delimited-string return strings. 


read-two-lines-1 reads two lines of input from the console. You type each line in 
its own editing context. After you enter the first line by pressing RETURN, LINE, or 
END, you can no longer rub out or otherwise edit any of the characters in the first 
line. You can type and edit only the second line at that point. 


(defun read-two-lines-1 () (list (readline) (readline) )) 


read-two-lines-2 lets you edit both lines in a single context by using the 
with-input-editing macro. Even after entering the first line you can edit it. For 
example, the m-< input editor command moves the cursor to the first character of 
the first line. read-two-lines-2 also adds a stream parameter so that you can read 
from different streams without having to bind standard-input. You can also use 
this function for reading from noninteractive streams, such as file streams. 
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(defun read-two-lines-2 (&optional (stream standard- input) ) 
(with-input-editing (stream) (list (readline stream) (readline stream) ))) 


read-two-lines-3 demonstrates the use of the :prompt input editor option and the 
:end-activation option for with-input-editing. When you invoke this function on 
an interactive stream you receive a prompt. This prompt is redisplayed if typeout to 
the stream occurs. This might happen if you press HELP or the window receives a 
notification. 


The :end-activation option defines #\end as an activation character. This lets 
you activate previous input to read-two-lines-3, after yanking and editing it, by 
pressing END. The :prompt and :end-activation options have no effect on the 

behavior of the function for noninteractive streams. 


(defun read-two-lines-3 (&optional (stream standard- input) ) 
(with-input-editing (stream ’((:prompt “Type two lines: ")) () :end-activation) 
(list (readline stream) (readline stream) ))) 


read-n-lines-1 is like read-two-lines except that you specify the number of lines to 
be read using the n-lines argument. This example illustrates passing a parameter 
into the body of the with-input-editing form. 
(defun read-n-lines-1 (n-lines &optional (stream standard-input) ) 
(with-input-editing (stream ’((:prompt “Type some lines: “)) (n-lines) :end-activation) 
(loop repeat n-lines collect (readline stream) ))) 


read-n-lines-2 shows a different way of passing the n-lines parameter into the 
with-input-editing body. It uses a prompt function instead of a string to generate 
the prompt, and it passes the n-lines parameter to that function. 


(defvar x*n-lines*) 


(defun read-n-lines-prompt (stream ignore) 
(format stream "Type ~R line~:P:~%" *n-lines*)) 


(defun read-n-lines-2 (*n-lines* &optional (stream standard- input) ) 
(with-input-editing (stream ’((:prompt read-n-lines-prompt)) () :end-activation) 
(loop repeat xn-lines* collect (readline stream) ))) 


Next is an example of a simple sentence parser. It builds a list of strings and 
symbols that represent the words and punctuation marks of the sentence. A | 
sentence may be any number of lines long. It is delimited by a period or a question 
mark. Words are delimited by a space, newline, or punctuation mark. This is also 
an example of a reading function written entirely in terms of :tyi as the primitive 
input operation. 
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(defun read-sentence-1 (&optional (stream standard- input) ) 
(with-input-editing (stream ’((:prompt “Type a sentence: “))) 
(loop named sentence 
with sentence = nil 
for word = (make-array 20. ’:type art-string °:fill-pointer 0) 
do (loop for char = (send stream ”:tyi) 
do (cond ((memq char ’(#\space #\return #/. #/? #/,)) 
(if (not (equal word “")) 
(push word sentence) ) 
(selectq char 
((#\space #\return) 
(return) ) 
(#\. 
(push ’®:period sentence) 
(return-from sentence (nreverse sentence) )) 
(#\? 
(push ’:question-mark sentence) 
(return-from sentence (nreverse sentence) )))) 
(t (array-push-extend word char))))))) 


Following is a different sentence parser that calls read-delimited-string to 
accumulate characters into a string. It uses the :end-activation option for 
with-input-editing so that previous input to read-sentence-2 can be yanked, 
edited, and activated using the END key. When it detects incorrect uses of 
punctuation, it calls sys:parse-ferror to signal an error caught by the input editor. 
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(defun read-sentence-2 (&optional (stream standard-input) ) 
(with-input-editing (stream ’((:prompt “Type a sentence: ")) () :end-activation) 
(loop with sentence = nil 
do (multiple-value-bind (word nil delimiter) 
(read-delimited-string ’(#\space #\return #/. #/? #/, #/: #/;) stream) 
(if (not (equal word “")) 
(push word sentence) ) 
(cond ((memq delimiter ’(#\space #\return))) 
((null sentence) 
(if (eq delimiter #\end) 
(return nil) 
(sys : parse-ferror 
“The punctuation mark /"~C/" occurred at the ~ 
beginning of the sentence.” 
delimiter ))) 
((symbolp (car sentence) ) 
(sys :parse-ferror 
“The punctuation mark /"~C/" was typed after a ~@*." 
delimiter (car sentence) )) 
(t (selectq delimiter 
(#/, 
(push *:comma sentence) ) 
(#/: 
(push ’:colon sentence) ) 
(#/; 
(push ’:semicolon sentence) ) 
(#/, 
(push *:period sentence) 
(return (nreverse sentence) )) 
(#/? 
(push ’:question-mark sentence) 
(return (nreverse sentence)))))))))) 


Sometimes an error in parsing is detected not by the function that invokes the input 
editor, but by some function that it calls. In the next example, read-time invokes 
time:parse-universal-time to do its parsing. If we did not use the 
condition-case form in read-time, we would enter the Debugger when 
time:parse-universal-time encountered incorrect input. The condition-case form 
encapsulates the original error in one of flavor sys:parse-ferror so that the input 
editor catches it. Alternately, we could define time:parse-error to be a subflavor of 
sys:parse-error. 
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(defun read-time (&optional (stream standard-input) input-editor-options) 
(with-input-editing (stream input-editor-options () :line) 
(let ((string (readline-or-nil stream) )) 
(when string 
(condition-case (error) 
(time: parse-universal-time string) 
(time:parse-error 
(sys:parse-ferror "~A" error))))))) 


2.2.17 New macro: sys:with-open-file-search 


sys:with-open-file-search is like with-open-file, but it searches for a file with one 
of the types in a list of file types. load uses this to search first for a binary file and 
then for a source file. 


sys:with-open-file-search (stream-variable Macro 
(operation defaults auto-retry) 
(type-list-function pathname . type-list-args) . 
open-options) body... 
sys:with-open-file-search performs a with-open-file, searching for a file 
with one of the types in a list of file types. load uses this macro when not 
given a specific file type to search first for a binary file and then for a source 
file. 


The body is evaluated with stream-variable bound to a stream that reads or 
writes the file. open-options are alternating keywords and values to be passed 
to open. 


type-list-function should be a function whose first argument is pathname and 
whose remaining arguments are type-list-args. The function should return 
two values: a list of file types to be searched, in order of preference, and a 
base pathname to be merged with the types and defaults in searching for the 
file. defaults can be a pathname or a defaults alist; if omitted, the defaults 
come from fs:*default-pathname-defaults*. The macro uses 
fs:merge-pathname-defaults for merging. 


If no file is found with any of the types in the list of types, 
fs:multiple-file-not-found is signalled. operation is the name of the 
operation that failed; usually this is the name of the function that contains 
the sys:with-open-file-search form. If auto-retry is not nil and the 
condition is not handled, the user is prompted for a new pathname. 


2.2.18 New condition flavor: fs:multiple-file-not-found 


fs:multiple-file-not-found is signalled when none of a number of possible files is 
found. This condition is signalled by sys:with-open-file-search when it fails to find 
any file. 
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fs:multiple-file-not-found Flavor 
None of a number of possible files was found. This flavor is built on 
fs:file-lookup-error. It is signalled when load is not given a specific file 
type but cannot find either a source or a binary file to load. 


The flavor allows three init keywords of its own. These are also the names 
of messages that return the following: 


:operation The operation that failed 
:pathname The pathname given to the operation 
:pathnames A list of pathnames that were sought unsuccessfully 


The condition has a :new-pathname proceed type to prompt for a new 
pathname. 


2.2.19 New condition flavor: fs:rename-across-hosts 


fs:rename-across-hosts Flavor 
The hosts of the initial and target pathnames are not the same. This flavor 
is built on fs:rename-failure. 


2.2.20 New variable: fs:*remember-passwords* 


fs:*tremember-passwords*, if not nil, causes the first password for each file access 
path to be remembered and suppresses prompting for passwords when the same 
person uses that access path again. 


fs:*remember-passwords* Variable 
If not nil, causes the first password for each file access path to be 
remembered. This suppresses prompting for passwords on subsequent 
attempts by the same user to use that access path. The default value is nil. 


Note that if you set this variable in an init file, your first login password, 
typed before the init file is loaded, is not remembered. 


Caution: Remembered passwords are accessible. Even after you log out the 
remembered password for each access path is accessible. If password security 
is important, you probably should not set this variable to a non-nil value. 


2.2.21 New function: si:patch-loaded-p 


si:patch-loaded-p is a predicate that tells whether the loaded version of a system is 
at or past a specified patch level. 


si:patch-loaded-p major-version minor-version Function 
&optional (system “System"”) 
A predicate that tells whether the loaded version of system is past (or at) the 
specified patch level. Returns t if: 
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e the major version loaded is major-version and the minor version loaded 
is greater than or equal to minor-version 


e the major version loaded is greater than major-version 


Otherwise, the function returns nil. 


2.2.22 New functions: si:make-process-queue, si:process-enqueue, 
si:process-dequeue, si:process-queue-locker, si:reset-process-queue 


A process queue is a new facility for round-robin locking. Each process that requests 
a lock via a queue enters itself on the queue if the lock is not free. Processes are 
given a chance to seize the lock in the order in which they request it. 


si:make-process-queue name size Function 
Makes and returns a queue for processes requesting a lock. name is an 
external name for the queue and is used only in printing the queue. size is 
the size of the queue. This is the maximum number of processes that will 
be guaranteed to lock the queue in exact requesting order. 


si:process-enqueue queue &optional queue-value (whostate "Lock") Function 
Locks queue. queue-value is an object to enter on the queue; if qgueue-value 
is nil or unsupplied, the object is the current process. If queue is empty, 
seizes the lock immediately by inserting queue-value on the queue and 
returning. If queue is not full but other processes are on the queue waiting 
for the lock to be free, inserts queue-value at the end of the queue, waits for 
the lock to be free, and then seizes the lock by returning. If queue is full, 
waits until queue is not full and tries again to seize the lock. whostate is 
displayed in the status line while waiting to seize the lock. Signals an error 
if gueue-value has already seized the lock. 


si:process-dequeue queue &optional queue-value (error-p t) Function 
Unlocks queue. queue-value is an object on the queue. If queue-value is nil 
or unsupplied, it is the current process; if not nil, it should be the same as 
the queue-value given to the matching call to sizprocess-enqueue. If 
queue-value has the lock, unlocks the lock by removing queue-value from 
queue and giving the next process on the queue a chance to seize the lock. 
If queue-value does not have the lock and error-p is not nil, signals an error. 


si:process-queue-locker queue Function 
Returns the queue-value for the process that holds the lock on queue, or nil 
if the lock is free. 


si:reset-process-queue queue Function 
Unlocks queue and removes all processes on the queue. 
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2.2.23 New function: applyhook 


applyhook provides a hook into apply, much as evalhook provides a hook into 
eval. It is useful for printing debugging information about apply operations. 


applyhook Variable 
When the value of this variable is not nil and eval calls apply, applyhook 
is bound to nil and the function that was its value is applied to two 
arguments: the function that eval gave to apply and the list of arguments 
to that function. The value it returns is returned from the evaluator. 


applyhook function args evalhook applyhook Function 
function is applied to args with evalhook lambda-bound to the function 
evalhook and with applyhook lambda-bound to the function applyhook. 
Like the evalhook function, this bypasses the first place where the relevant 
hook would normally be triggered. Either of the last two arguments can be 
nil. 


The function evalhook now takes an optional third argument, an applyhook 
function to be called by eval after eval has evaluated the arguments to a function. 


evalhook form evalhook &optional applyhook Function 
evalhook is a function that helps exploit the evalhook feature. The form 
is evaluated with evalhook lambda-bound to the function evalhook. The 
checking of evalhook is bypassed in the evaluation of form itself, but not in 
any subsidiary evaluations, for instance of arguments in the form. This is 
like a “one-instruction proceed" in a machine-language debugger. 


Example: 
3; This function evaluates a form while printing debugging 
33 information. 
(defun hook (x) 
(terpri) 
(evalhook x *hook-function) ) 


3: Notice how this function calls evalhook to evaluate the 
3; form f, so as to hook the subforms. 
(defun hook-function (f) 
(let ((v (evalhook f ’hook-function))) 
(format t “form: ~s~%value: ~s~%" f v) 
v)) 


3; This isn’t a very good program, since if f returns multiple 
3; values, it will not work. 


The following output might be seen from (hook ’(cons (car ’(a . b)) ’c)): 
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2.2.24 


gce-on 


2.2.25 


form: (quote (a . b)) 
value: (a . b) 

form: (car (quote (a . b))) 
value: a 

form: (quote c) 

value: c 

(a .c) 


Normally after eval has evaluated the arguments to a function, it calls the 
function. If applyhook exists, however, eval calls the hook with two 
arguments: the function and its list of arguments. The values returned by 
the hook constitute the values for the form. The hook could use apply on 
its arguments to do what eval would have done normally. This hook is 
active for special forms as well as for real functions. 


Whenever either an evalhook or applyhook is called, both hooks are bound 
off. The evalhook itself can be nil if only an applyhook is needed. 


applyhook catches only apply operations done by eval. It does not catch 
apply called in other parts of the interpreter or apply or funcall operations 
done by other functions such as mapear. In general, such uses of apply 
can be dealt with by intercepting the call to mapear, using the applyhook, 
and substituting a different first argument. 


The argument list is like an &rest argument: it might be stack-allocated but 
is not guaranteed to be. Hence you cannot perform side-effects on it and you 
cannot store it in any place that does not have the same dynamic extent as 
the call to applyhook. 


New variable: gc-on 


Variable 
The value of this variable is t when the garbage collector is turned on and 
nil when it is turned off. ge-on is useful in finding out whether the garbage 
collector has turned itself off (as it does when not enough free space remains 
to be able to complete a copying garbage collection). 


New initialization list: :after-full-gc 


si:full-ge runs the :after-full-ge initialization list after it collects all the garbage. It 
runs the previously undocumented :full-ge initialization list before it collects the 


garbage. | 
See the section "System Initialization Lists". 
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2.2.26 New variable: dbg:*debug-io-override* 


dbg:*debug-io-override* can be used to direct the Debugger to a stream other 
than that designated by debug-io. This is useful mainly in complex debugging 
using the cold-load stream. 


dbg:*debug-io-override* | Variable 
If the value of this variable is nil (the default), the Debugger uses the 
stream that is the value of debug-io. But if the value of 
dbg:*debug-io-override* is not nil, the Debugger uses the stream that is 
the value of this variable instead. This variable should always be set (using 
setq), not bound, so all processes and stack groups can see it. 


2.2.27 New message to conditions: :special-command-p 


You can send the :special-command-p message to a condition object to determine 
whether a command is one of the Debugger special commands for that object. 


:special-command-p command-type of condition Method 
Returns t if command-type is a valid Debugger special command for this 
condition object; otherwise, returns nil. 


2.2.28 New macro: tv:with-mouse-grabbed-on-sheet 


tv:with-mouse-grabbed-on-sheet grabs the mouse and confines it to a window. 
This is usually preferable to using tv:with-mouse-grabbed. 


tv:with-mouse-grabbed-on-sheet (sheet) body... Macro 
Evaluates body with the mouse grabbed and confined to sheet. During 
execution the variables tv:mouse-x and tv:mouse-y are relative to the 
window’s outside coordinates. The default value of sheet is self. 


2.2.29 New variable: tv:cold-load-stream-old-selected-window 


This variable tells you which window was selected at the time you entered the cold 
load stream. 


tv:cold-load-stream-old-selected-window Variable 
At a cold-load stream break, the value of this variable is the value of 
tv:selected-window at the time you entered the cold-load stream. 


2.2.30 New flavor: tv:margin-space-mixin 


tv:margin-space-mixin lets you leave some blank space in the margins of a 
window. You can use the :space init option and the :space and :set-space 
messages to determine the amount of blank space to be left. : 
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tv:margin-space-mixin Flavor 
This flavor provides a margin item that just leaves some blank space. It 
might be useful if you’re using scroll bars, and you want to leave a little 
white space between the scroll bar and the inside of the window. 


:space (for tv:margin-space-mixin) Init Option 
Initializes the amount of blank space in the margins of the window. Possible 
values: 
nil No space 
t One pixel blank in each of the four margins 
n n pixels of space in each of the four margins (n is an 

integer) 


(left top right bottom) 
left pixels blank in the left margin, top pixels blank in the 
top margin, and so on (values are integers) 


:space of tv:margin-space-mixin Method 
Returns a list of four elements, (left top right bottom). These are integers 
representing the number of pixels of blank space in the four margins of the 
window. 


:set-space new-space of tv:margin-space-mixin Method 
Specifies the amount of blank space to be left in the margins of the window. 
Possible values of new-space: 


nil No space 

t One pixel blank in each of the four margins 

n n pixels of space in each of the four margins (n is an 
integer) 


(left top right bottom) 
left pixels blank in the left margin, fop pixels blank in the 
top margin, and so on (values are integers) 


2.2.31 New font: fonts:cptfonti 


A new tv font, fonts:cptfonti, is available. This is a fixed-width italic font of the 
same width and shape as fonts:cptfont, the default screen font. It is most useful 
for italicizing running text along with fonts:cptfont. 
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2.2.32 New Choose-variable-values Keywords 


The following choose-variable-values keywords are new in Release 5.0 or were 
previously undocumented: :choose-multiple, :string-or-nil, :decimal-number, 
:decimal-number-or-nil, :date-or-never, :past-date, :time-interval-or-never, 
:pathname, :pathname-or-nil, :pathname-list, :host, :host-list, :pathname-host, 
:keyword-list, and :font-list. 


Keyword Action 


:choose-multiple values-list print-function 
This type takes arguments like :assoc but permits the user to 
choose more than one element in the values-list. The variable is 
set to a list of all the values chosen. 


:string-or-nil This value is a string or nil if the user just presses RETURN, LINE, 
or END. 


:decimal-numberThis value is a decimal number, read and printed in radix 10. 


:decimal-number-or-nil 
This value is a decimal number, read and printed in radix 10, or 
nil if the user just presses RETURN, LINE, or END. 


:date-or-never This value is a universal date-time or nil if the user types 
"never". An ambiguous date is interpreted as being in the future. 


:past-date The value is a universal date-time. An ambiguous date is 
interpreted as being in the past. 


:time-interval-or-never 
The value is an integer representing the number of seconds in a 
time interval, or nil if the user types "never". The interval is 
read and printed as either "never" or alternating numbers and 
units of time; the units can include seconds, minutes, hours, = 
weeks, or years. 


:pathname The value is a pathname, represented as a string. The tests 
read is merged with the defaults in 
fs:*default-pathname-defaults* and has a default version of 
newest. 


:pathname-or-nil The value is a pathname, represented as a string, or nil if the 
user just presses RETURN, LINE, or END. The pathname read is 
merged with the defaults in fs:*default-pathname-defaults* and 
has a default version of newest. 


:pathname-list The value is a list of pathnames, read as a series of pathnames 
separated by commas and optional spaces, and merged with the 
defaults in fs:*default-pathname-defaults*. The default version 
is newest. The list is printed as a series of pathnames separated 
by commas and spaces. 
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shost The value is a network host, read and printed as the name of the 
host. 
shost-list The value is a list of network hosts, read as a series of host 


names separated by commas or spaces, and printed as a series of 
host names separated by commas and spaces. 


s:pathname-host The value is a pathname host, read and printed as the name of 
the host. The name can be "local", "sys", or the name of another 
logical host as well as the name of a physical host. 


:keyword-list | The value is a list of symbols in the Keyword package, read as a 
. series of symbol names separated by commas or spaces, and 
printed as a series of symbol names separated by spaces. Symbol 
names are read and printed without package prefixes (that is, not 
preceded by colons). 


:font-list The value is a list of fonts, read as a series of font names 
separated by commas or spaces, and printed as a series of font 
names separated by commas and spaces. Font names are read 
and printed without package prefixes (that is, not preceded by 
fonts:). . 


2.3 improvements to Lisp in Release 5.0 


2.3.1 Previously undocumented special form: destructuring-bind 


destructuring-bind variable-pattern data body ... Special Form 
destructuring-bind binds variables to values, using defmacro’s 
destructuring facilities, and evaluates the body forms in the context of those 
bindings. 


First data is evaluated. If variable-pattern is a symbcl, it is bound to the 
result of evaluating data. If variable-patiern isat _ the result of 
evaluating data should be a tree of the same sham. “he trees are 
disassembled, and each variable that is a component <; ariable-pattern is 
bound to the value that is the corresponding element of the tree that results 
from evaluating data. If not enough values are supplied, the remaining 
variables are bound to nil. If too many values are supplied, the excess values 
are ignored. Finally, the body forms are evaluated sequentially, the old values 
of the variables are restored, and the result of the last body form is returned. 


As with the pattern in a defmacro form, variable-pattern actually resembles 
the lambda-list of a function; it can have &-keywords. See the section 
"Advanced Features of defmacro". 


Example: 
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(destructuring-bind (a (b) &optional (c °d)) 
"((x y) (z)) 
(values a b c)) 


returns (x y), Z, and d. 


2.3.2 Invisible blocks in progs and dos 


You can now make a biock invisible to returns in any kind of prog or do form by 
including immediately within it the form (declare (invisible-block t)). This 
feature is intended for macro expansions, not for user code. 


See the special form do-named. 


2.3.3 Previously undocumented function: clear-resource 


clear-resource causes allocate-resource to ignore existing objects in the resource 
and make new objects when called. 


clear-resource resource-name Function 
Forget all of the objects being remembered by the resource specified by 
resource-name. Future calls to allocate-resource create new objects. This 
function is useful if something about the resource has been changed 
incompatibly, such that the old objects are no longer usable. If an object of 
the resource is in use when clear-resource is called, an error is signalled 
when that object is deallocated. 


2.3.4 Multidimensional Arrays on the 3600 Remember Actual Dimensions 


Arrays of more than one dimension on the 3600 now store their dimensions. This 
allows multidimensional indirect arrays to have conformal indirection. A new 
make-array option, :displaced-conformally, has been added. The window system 
now uses conformal indirect arrays for screen arrays. 


Multidimensional arrays on the 3600 remember their actual dimensions, separately 
from the magic numbers by which to multiply the subscripts before adding them 
together to get the index into the array. 


As a result of this, multidimensional indirect arrays on the 3600 can have conformal 
indirection. If A is indirected to B, and they do not have the same width, then 
normally the part of B that is shared with A does not have the same shape as A. If 
conformal indirection is used, then it does have the same shape and there are gaps 
between the rows of A. For example: 


(setq b (make-array 7(10. 20.))) 
(setq a (make-array ’(3 5) ’:displaced-to b *:displaced-index-offset 12.)) 


Now: 
(aref a 10) = (aref b 3 1) and (aref a 11) = (aref b 61). 
In contrast: 
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(setq a (make-array ’(3 5) ’:displaced-to b 
’ sdisplaced-index-offset 12. 
’:displaced-conformally t)) 


(aref a 1 0) = (aref b 3 1) still, but (aref a 1 1) = (aref b 3 2). Each row of A 
corresponds to part of a row of B, always starting at the same column (2). 


A graphic illustration: 
(setq a (make-array ’(6 20.)) 
b (make-array ’(3 5) *:displaced-to a ’:displaced-index-offset 22.) 
c (make-array ’(3 5) ’:displaced-to a ’:displaced-index-offset 22. 
*:displaced-conformally t)) 


Normal case Conformal case 

0 19 0 19 
Hee creer cee n enc eneree + Howe nm wwe et eee eee ew ee + 
0 | aaaaaaaaaaaaaaaaaaaa| 0 | aaaaaaaaaaaaaaaaaaaa | 
| aaBBBBBBBBBBBBBBBaaa]} | aaCCCCCaaaaaaaaaaaaa| 
| aaaaaaaaaaaaaaaaaaaa | | aaCCCCCaaaaaaaaaaaaa| 
| aaaaaaaaaaaaaaaaaaaa | | aaCCCCCaaaaaaaaaaaaa| 
| aaaaaaaaaaaaaaaaaaaa | | aaaaaaaaaaaaaaaaaaaa | 
5 | aaaaaaaaaaaaaaaaaaaa | 5 | aaaaaaaaaaaaaaaaaaaa | 
Pree css es eceerseresr= + Grower eset eww reeceene + 


Arrays are stored in column-major order, so the units in which the index-offset is 
measured should be read first from left to right and then from top to bottom. 


The meaning of adjust-array-size for conformal indirect arrays is undefined. 


The window system now uses conformal indirect arrays for its screen arrays. This 
means that on the 3600 the bit-array in which a window saves its bits when it is 
not visible no longer has to be the full width of the screen; now it is just the width 
of the window, rounded up to the next multiple of 32 bits. On the LM-2, screen 
arrays and bit-save arrays are still the full width of the screen. 


Some associated internal changes for both the 3600 and the LM-2: 


¢ The locations-per-line instance variable changes when expose and deexpose 
happen 


e The arguments to the :create-screen-array message to screens have changed 


¢ The :adjust-screen-array message to sheets replaces the 
:redirect-screen-array message to screens 


¢ New message to screens: :inferior-screen-array-adjusted 


Screen arrays no longer use multilevel indirection; the screen array of a nonscreen 
sheet always indirects either to a bit-save array or to the screen array of its screen. 
The screen array of a screen is always a displaced array to the hardware screen 


buffer. 
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2.3.5 New options for make-plane: :initial-dimensions, :initial-origins 


make-plane has two new keyword options: :initial-dimensions and 
sinitial-origins. 


make-plane rank &rest options Function 
Creates and returns a plane. rank is the number of dimensions. options is a 
list of alternating keyword symbols and values. The allowed keywords are: 


stype The array type symbol (for example, art-1b) specifying the type of the 
array out of which the plane is made. 


:default-value 
The default component value. 


:extension 
The amount by which to extend the plane. See the section "Planes". 
sinitial-dimensions 
A list of dimensions for the initial creation of the plane. You might 
want to use this option to create a plane whose first dimension is a 
multiple of 32, so you can use bitblt on it. Default: the result 
returned by (make-list rank ’:initial-value 1). 
sinitial-origins 
A list of origins for the initial creation of the plane. Default: the 
result returned by (make-list rank ’:initial-value 0). 


Example: 
(make-plane 2 ’:type ’art-4b ’:default-value 3) 
creates a two-dimensional plane of type art-4b, with default value 3. 


2.3.6 New optional arguments to string-upcase and string-downcase 


string-upcase and string-downcase now take three optional arguments: a 
starting index and limit for changing case in substrings, and an indicator of whether 
the string should be copied or modified directly. 


string-upcease string &optional (from 0) to (copy-p t) Function 
If copy-p is not nil, returns a copy of string, with lowercase alphabetic 
characters replaced by the corresponding uppercase characters. If copy-p is 
nil, uppercases characters in string itself and then returns the modified 
string. from is the index in string at which to begin uppercasing characters. 
If to is supplied, it is used in place of (array-active-length string) as the 
index one greater than the last character to be uppercased. 


string-downcase string &optional (from 0) to (copy-p t) Function 
If copy-p is not nil, returns a copy of sfring, with uppercase alphabetic 
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characters replaced by the corresponding lowercase characters. If copy-p is 
nil, lowercases characters in string itself and then returns the modified 
string. from is the index in string at which to begin lowercasing characters. 
If to is supplied, it is used in place of (array-active-length string) as the 
index one greater than the last character to be lowercased. 


2.3.7 Previously undocumented function: string-compare 


string-compare compares two strings using dictionary order and returns a number 
that depends on whether or not the strings are equal. 


string-compare string1 string2 &optional (idx1 0) (idx2 0) lim1 lim2 Function 
Compares the characters of string1 starting at idx1 and ending just below 
lim1 with the characters of string2 starting at idx2 and ending just below 
lim2. The comparison is in alphabetical order. lim1 and lim2 default to the 
lengths of the strings. string-compare returns: 


e a positive number if stringl > string2 
e zero if stringl = string2 
e a negative number if stringl < string2 


If the strings are not equal, the absolute value of the number returned is 
one more than the index (in string1) at which the difference occurred. 


string-compare uses the same rules as string in coercing string] and 
string2 into strings. 


2.3.8 3600 select-methods handle :operation-handled-p and :send-if-handles “ 


Select-methods on the 3600 now handle the :operation-handled-p and 
:send-if-handles messages. Methods for these messages are generated automatically 
when the defselect form is evaluated. 


See the special form defselect. See the message :operation-handled-p. See the 
message :send-if-handles. 


2.3.9 Compiler Performs Style Checking on All Forms 


The compiler no longer fails to perform style checking on the results of macro 
expansions and optimizations. 


The compiler performs style checking on all forms. Style checking is implemented by 
the compiler:style-checker property on a symbol; the value of the property is 
called on all forms whose car is that symbol, except those immediately enclosed in 
inhibit-style-warnings. 
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2.3.10 sys:dump-forms-to-file always puts package attribute into binary file 


sys:dump-forms-to-file always puts a package attribute into the binary file it 
writes. If you do not specify the atfribute-list argument, or if attribute-list does not 
contain a :package attribute, the function uses the user package. This is to 
ensure that package prefixes on symbols are always interpreted when they are 
loaded as they were intended when the file was dumped. 


2.3.11 Previously undocumented macro: swapf 


swapf exchanges the value of one generalized variable with that of another. 


swapf a 0 Macro 
Exchanges the value of one generalized variable with that of another. a and 
b are access-forms suitable for setf. The returned value is not defined. All 
the caveats that apply to incf apply to swapf as well: Forms within a and b 
may be evaluated more than once. Examples: 


(swapf a b) 
==> (setf a (prog! b (setf b a))) 
==> (setq a (prog! b (setq b a))) 


(swapf (car (foo)) (car (bar))) 
==> (setf (car (foo)) (prog! (car (bar)) (setf (car (bar)) (car (foo))))) 
==> (rplaca (foo) (prog! (car (bar)) (rplaca (bar) (car (foo))))) 


Note that in the second example the functions foo and bar are called twice. 


2.3.12 Compiler now warns about implicit progns in loops 


An expression in a loop clause can be a single form or a series of forms that 
constitute an implicit progn. When an implicit progn appears, it is often an error 
caused by omitting a do. Because this error is so frequent, the intentional use of 
implicit progns in most clauses is considered obsolete and dangerous. If you intend 
to use a progn, use an explicit one. To help you detect implicit progns, the 
compiler now issues a warning whenever it encounters one in a context where it is 
likely to be a mistake. 


Consider the following example: 


(defun frob (list) © 
(loop for thing in list 
collect (string thing) 
(format t “~&~A" thing))) 


The returned value is a list of nils, one for each element of list. The author most 
likely intended to return a list of the elements of list, coerced to strings, but omitted 
a do before the (format ...) form. When this definition is compiled, the compiler 
issues this warning: 
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For function FROB: 
The use of multiple forms with an implicit PROGN in this context is 
considered obsolete, but is still supported for the time being. 
If you did not intend to use multiple forms here, you probably 
omitted a DO. If the use of multiple forms was intentional, put a 
PROGN in your code. 
The offending clause -- LIST (STRING THING) (FORMAT T “~&~A" THING) 


2.3.13 Some Methods Can Use Combination Type as Method Type 


Methods used with combination types that formerly allowed only untyped methods 
can now use the combination type as the method type. 


Methods used with :progn, :append, :nconc, :and, :or, :list, :inverse-list, and 
:pass-on combination types can use the combination type as the method type. This 
is useful in documenting how the method is used. 


In the following example, (:method foo :or :find-frabjous-frob) could have been 

defined as (:method foo :find-frabjous-frob). The only difference is one of style: 
Using :or as the method type makes it clear that the methods are combined using 

sor combination. 


(defflavor foo (frobl) (bar) 
(:method-combination (:or :base-flavor-last :find-frabjous-frob) )) 


(defmethod (foo :or :find-frabjous-frob) (type) 
(dolist (frob frob1) 
(when (send frob ’:frabjous-p type) 
(return frob)))) 


4 


2.3.14 Previously undocumented reader macro: #| and |# 
#| begins a comment for the Lisp reader, and |# ends one. 


#| begins a comment for the Lisp reader. The reader ignores everything until the 
next |#, which closes the comment. Note that if the |# is inside a comment that 
begins with a semicolon, it is not ignored; it closes the comment that began with the 
preceding #|. #] and |# can be on different lines, and #|...}# pairs can be nested. 


2.3.15 New function to be called by reader macros: si:read-recursive 


Reader macros that call a read function should now call si:read-recursive instead 
of read. 


si:read-recursive sfream Function 
si:read-recursive should be called by reader macros that need to call a 
function to read. It is important to call this function instead of read in 
macros that are written in Zetalisp but used by the Common Lisp readtable. 
In particular, this function must be called by macros used in conjunction with 
the Common Lisp #n= and #n# syntaxes. 
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stream is the stream from which to read. This function may be called only 
from inside a read. 


For example, this is the reader macro called when the reader sees a quote (’): 


si:(defun xr-quote-macro (list-so-far stream) 
list-so-far snot used 
(values (list-in-area read-area 
*quote (read-recursive stream) ) 
*list)) 


2.3.16 New optional arguments to read-from-string 


read-from-string now takes two new optional arguments for specifying a substring. 
These are indices for the first character to be read and the character after the last 
one to be read. 


read-from-string string &optional (eof-option ’si:no-eof-option) Function 
(start 0) end 
The characters of string are given successively to the reader, and the Lisp 
object built by the reader is returned. Macro characters and so on will all 
take effect. If string has a fill-pointer it controls how much can be read. 


eof-option is what to return if the end of the string is reached, as with other 
reading functions. start is the index in the string of the first character to be 
read. end, if given, is used instead of (array-active-length string) as the 
integer that is one greater than the index of the last character to be read. 


read-from-string returns two values: The first is the object read and the 
second is the index of the first character in the string not read. If the 
entire string was read, this is the length of the string. 
Example: 

(read-from-string "(a b c)") => (a bc) and 7 


2.3.17 Changes to prompt-and-read 


Changes have been made to many prompt-and-read options. 


e New options: :character, :date, :time-interval-or-never, 
:expression-or-end, :pathname-or-nil, :string-list, :delimited-string, 
:delimited-string-or-nil, :host, :host-list, :pathname-host, :keyword-list, 
:font-list. 


e When options accept a single line of text as input, the line can be terminated 
by RETURN, LINE, or END. These are activation characters, so they can be typed 
anywhere in the line. 


e The :number option accepts keyword-value pairs that determine the base in 
which the number is read and whether or not nil can be returned. 
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e The :pathname option accepts a :default-version keyword. If not specified, 
the default version is newest. 


prompt-and-read type &optional format-string &rest format-args Function 
prompt-and-read prompts the user, with format-string and its arguments as 
the prompt. It uses format to query-io to produce the prompt; it reads 
from the query-io stream, calling the reading function associated with the 
type keyword. If format-string is not specified, it generates a prompt 
appropriate to type. The type argument can be a list in which the first 
element is the type keyword and the rest are keyword/value pairs to serve as 
arguments to the reading function. prompt-and-read returns whatever the 
reading function returns. 


This is an appropriate function to call for collecting input from the user. Its 
main advantages are that it does type checking on the input the user types 
and that it takes care of redisplaying the prompt at appropriate times (for 
example, after the screen has been refreshed or after a notification arrives). 


(prompt-and-read ’:number “Please enter a number: ") => 
Please enter a number: 4 

4 

(prompt-and-read ’:string “Please enter a string: ”) => 
Please enter a string: 4 

uae 


It expects to collect input of type type, where type is a keyword. It handles 
the following types of input: 


Option Action 


:eval-form Reads a Lisp form. Evaluates it and returns the first 
value. Asks for confirmation of nonconstant values. The 
Debugger uses this to prompt for a form to evaluate. 


:eval-form-or-end 
Reads a Lisp form or just END. Evaluates it and returns 
the first value for a form. Returns two values, nil and 
:end, for END. Asks for confirmation of nonconstant 
values. The Debugger uses this to prompt for a form to 
evaluate. 


:expression Reads a Lisp expression. (It returns the expression 
without evaluating it.) 


:expression-or-end 
Reads a Lisp expression or just END. It returns the 
expression without evaluating it. If the user just presses 
END, it returns two values, nil and :end. 


scharacter Reads and returns a character. The returned value is a 
character code (an integer). 
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(number :input-radix radix :or-nil or-nil-value) 
Reads and returns a number, terminated by RETURN, LINE, 
or END. If :input-radix is specified, the number is read in 
radix radix; otherwise, it is read in the current ibase. If 
:0r-nil is specified with a value of t, it returns nil if the 
user just presses RETURN, LINE, or END. 


snumber-or-nil The same as (:number :or-nil t). 
:decimal-numberThe same as (:number :input-radix 10.). 


:decimal-number-or-nil 
The same as (number :input-radix 10. :or-nil t). 


(:date :past-p past-p-value :never-p never-p-value) 
Reads and returns a date, terminated by RETURN, LINE, or 
END. The returned date is a universal-time integer of the 
form returned by time:parse-universal-time. If :past-p 
is specified with a value of t, an ambiguous date is 
interpreted as being in the past; otherwise, it is interpreted 
as being in the future. If :mever-p is specified with a 
value of t, it returns nil if the user types "never". 


:past-date The same as (:date :past-p t). 
:date-or-never' The same as (:date :never-p t). 


:past-date-or-never 
The same as (:date :past-p t :never-p t). 


:time-interval-or-never 
Reads a time interval, terminated by RETURN, LINE, or END. 
The interval must be either "never" or alternating 
numbers and units of time; the units can include seconds, 
minutes, hours, days, weeks, or years. It returns nil if 
the user types "never". Otherwise, it returns an integer 
representing the number of seconds in the time interval. 


Example: 
(prompt-and-read ”’:time-interval-or-never) 


Enter a time interval, or “never”: 1 day 2 hrs 13 min => 
94380. 


(pathname :default defaults :default-version version) 
Reads a pathname, terminated by RETURN, LINE, or END, 
merging it with defaults. If :default is not specified, the 
defaults are the value of fs:*default-pathname-defaults’*. 
If :default is specified, its value should be suitable as the 
second argument to fs:merge-pathnames: a pathname, a 
pathname string, or an alist of hosts and pathnames of 
the sort that is the value of 
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fs:*default-pathname-defaults*. If :default-version is 
not specified, the default version is :newest. If 
:default-version is specified, its value should be an integer 
or keyword suitable as the third argument to 
fs:merge-pathnames. It returns the merged pathname. 


Example: 


(prompt-and-read “(:pathname :default ,my-defaults-alist) 
“Enter a name (default is ~A) “ 
(fs:default-pathname my-defaults-alist) ) 


(:pathname-or-nil :default defaults :default-version version) 
Like :pathname, except that the returned value depends 
on what the user types: 


User types Returned value 

A string Merged pathname 
RETURN or LINE only Default pathname 
END only nil 


spathname-list Reads a series of pathnames, separated by commas and 
terminated by RETURN, LINE, or END. Merges the 
pathnames with the defaults in 
fs:*default-pathname-defaults* and with a default 
version of newest. It returns a list of the merged 
pathnames. 


:string Reads a string terminated by RETURN, LINE, or END. It 
returns the empty string when the string is empty. 


:string-or-nil Reads a string terminated by RETURN, LINE, or END. It 
trims any leading or trailing white space. It returns nil 
when the string is empty. 


:string-trim Reads a string terminated by RETURN, LINE, or END. It 
trims any leading or trailing white space. It returns the 
empty string when the string is empty. 


:string-list Reads a series of strings separated by commas and 
terminated by RETURN, LINE, or END. It returns a list of 
the strings. 


(:delimited-string :delimiter (delimiter-1 delimiter-2 ...) :buffer-size size) 
Reads characters until one of the delimiters is typed. The 
delimiters are set up as activation characters. If no 
delimiters are specified, the default is #\end. If 
:buffer-size is specified, an initial buffer of size size 
characters is allocated; otherwise, the initial size is 100. 
characters. It returns the empty string when the string is 


empty. 


RN Release 5.0 Release Notes 
Symbolics, Inc. March 1984 


(:delimited-string-or-nil :delimiter (delimiter-1 delimiter-2...) :buffer-size 
size) 
Like :delimited-string, except that it returns nil when 
the string is empty. 


(shost :default default) 
Reads the name of a network host, terminated by RETURN, 
LINE, or END. If :default is specified, it should be the 
name of a host as a symbol or string. If :default is 
specified and the user just presses RETURN, LINE, or END, it 
returns the host specified by :default. Otherwise, it 
returns the host whose name the user types. 


(:host-list :chaos-only chaos-only) 
Reads a series of names of network hosts, separated by 
spaces or commas, and terminated by RETURN, LINE, or END. 
If :chaos-only is not nil, each host must have a Chaos 
address. It returns a list of the hosts whose names the 


user types. 


(:pathname-host :default default) 
Reads the name of a pathname host, terminated by 
RETURN, LINE, or END. The name can be "local", "sys", or 
the name of another logical host as well as the name of a 
physical host. If :default is specified, it should be the 
name of a pathname host as a string. If :default is 
specified and the user just presses RETURN, LINE, or END, it 
returns the host specified by :default. Otherwise, it 
returns the host whose name the user types. 


:keyword-list | Reads a series of names of symbols to be interned in the 
keyword package, separated by spaces or commas, and 
terminated by RETURN, LINE, or END. The symbol names 
should not have package prefixes (that is, they should not 
be preceded by colons). It returns a list of keyword 
symbols whose names the user types. 


:font-list Reads a series of names of fonts, separated by spaces or 
commas, and terminated by RETURN, LINE, or END. The 
font names should not have package prefixes (that is, they 
should not be preceded by fonts:), and they must be 
names of known fonts. It returns a list of fonts whose 
names the user types. 


Streams are permitted to have a handler for :prompt-and-read messages. 
The prompt-and-read function first determines whether the query-io 
stream handles the :prompt-and-read message. If so, it sends a 
:prompt-and-read message with its own arguments on to the stream. The 
stream returns several values. The first value the stream returns says 
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whether or not it wants to handle the interaction with the user itself. It 
returns nil to indicate that it declines to handle the message, in which case 
the prompt-and-read function continues its normal action of prompting the 
user. When the first value is not nil, the prompt-and-read function 
returns the rest of the values to its caller. 


2.3.18 Previously Undocumented Feature: Coroutine Streams 


Coroutine streams are a means of using output from one function as input to 
another, and vice versa. Functions are provided that construct two coroutine 
streams, each associated with a separate stack group but sharing a common I/O 
buffer. 


Functions that produce data as output (output functions) are written in terms of 
styo and other output operations. Functions that receive data as input (input 
functions) are written in terms of :tyi and other input operations. Output functions 
operate on output streams, which handle the :tyo message. Input functions operate 
on input streams, which handle the :tyi message. Sometimes it is desirable to view 
an output function as an input stream, or an input function as an output stream. 
You can do this with coroutine streams. 


Here is a simplified explanation of how coroutine streams work. A coroutine input 
stream can be built out of an output function. Whenever that stream receives a 
:tyi message, it invokes the output function in a separate stack group so that the 
function can produce the data that the :tyi message returns. A coroutine output 
stream can be built out of an input function; it works in the opposite fashion. 
Whenever the output stream receives a :tyo message, it invokes the input function 
in a separate stack group so that the function can receive the data transmitted by 
the :tyo message. It is also possible to connect functions that do both input and 
output, by using bidirectional coroutine streams. Since you can use coroutine 
streams to connect two functions, they are the logical inverse of 
stream-copy-until-eof, a function used to connect two streams. 


To create a coroutine stream, use one of three functions. If you want to make an 
input stream from an output function, use sizmake-coroutine-input-stream. If 
you want to make an output stream to an input function, use 
si:make-coroutine-output-stream. If you want to make a bidirectional stream for 
a function that does both input and output, use 
si:make-coroutine-bidirectional-stream. 


Following is an example using a coroutine input stream: 


(setq input-stream 
(si:make-coroutine-input-stream 
#’(lambda (stream) (print-disk-label 0 stream)))) 
(send input-stream ’:line-in) > _ 
"1645 free, 260499//262144 used (99%)” 
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Following is an example using a coroutine output stream: ia 
(setq output-stream fo 
(si:make-corout ine-output-stream aaaee 
#°( lambda (stream) (setq x (read stream))))) ~“ 


(send output-stream ’:string-out "(ab c)") 
(send output-stream ”’:force-output) 


x > (A BC) 


Coroutine streams are implemented as buffered character streams. Each function 
that makes a coroutine stream actually creates two streams and one new stack 
group. One stream is associated with the new stack group and the other stream 
with the stack group that is current when the stream-making function is called. If 
you use si:make-coroutine-input-stream or si:make-coroutine-output-stream, 
one stream is an input stream and the other is an output stream; they share a 
common buffer. If you use si:make-coroutine-bidirectional-stream, both streams 
are bidirectional; the input buffer of each stream is the output buffer of the other. 


With si:make-coroutine-input-stream, the output function runs in the new stack 
group. With si:zmake-coroutine-output-stream, the input function runs in the 
new stack group. With bidirectional streams, the function that does input or output 
runs in the new stack group. 


In the case of sizmake-coroutine-input-stream, for example, you typically send 
:tyi messages to the input stream that si:make-coroutine-input-stream returns. 
The input stream is associated with the new stack group. When the input stream 
receives a :tyi message, the new stack group is resumed, and the output function 
runs in that stack group. The output function typically sends :tyo messages to the 
output stream associated with the stack group from which 
si:make-coroutine-input-stream was called. When the output stream receives a 
:tyo message, the associated stack group is resumed. The data transmitted to the 
output stream become input to :tyi via the buffer that the two streams share. 
si:make-coroutine-output-stream and si:make-coroutine-bidirectional-stream 
work in analogous fashion. 


In addition to :tyi and :tyo, coroutine streams support other standard input and 
output operations, such as :line-in and :string-out. Actually, the 
snext-input-buffer method of the input stream and the :send-output-buffer 
method of the output stream resume the new stack group, not the receipt of :tyi 
and styo messages. Because the streams are buffered, you must send a 
:force-output message to an output stream to cause the new stack group to be 
resumed. 


The instantiable flavors of coroutine streams are si:coroutine-input-stream, 
si:coroutine-output-stream, and si:coroutine-bidirectional-stream. 
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Do not confuse coroutine streams with pipes. Coroutine streams are used for 
intraprocess communication; pipes are used for interprocess communication. The 
Lisp Machine does not currently support pipes. 


si:make-coroutine-input-stream function &rest arguments Function 
Creates two coroutine streams, an input stream and an output stream, with 
a shared buffer. si:make-coroutine-input-stream returns the input 
stream. The input stream is associated with a new stack group and the 
output stream with the stack group that is current when 
si:make-coroutine-input-stream is called. :tyi messages to the input 
stream cause the new stack group to be resumed and function to be called 
from that stack group. The first argument to function is the output stream; 
any additional arguments come from arguments. function should send :tyo 
messages to the output stream. These messages resume the stack group in 
which si:make-coroutine-input-stream was called. In this way, output 
from function becomes input to the caller of 
si:make-coroutine-input-stream through the shared buffer. 


si:make-coroutine-output-stream function &rest arguments Function 
Creates two coroutine streams, an output stream and an input stream, with 
a shared buffer. sizmake-coroutine-output-stream returns the output 
stream. The output stream is associated with a new stack group and the 
input stream with the stack group that is current when 
si:make-coroutine-output-stream is called. :tyo messages to the output 
stream cause the new stack group to be resumed and function to be called 
from that stack group. The first argument to function is the input stream; 
any additional arguments come from arguments. function should send :tyi 
messages to the input stream. These messages resume the stack group in 
which si:make-coroutine-output-stream was called. In this way, output 
from the caller of si:make-coroutine-output-stream becomes input to 
function through the shared buffer. 


si:make-coroutine-bidirectional-stream function &rest arguments Function 
Creates two bidirectional coroutine streams. The input buffer of each stream 
is the output buffer of the other. One stream is associated with a new stack 
group and the other with the stack group that is current when 
si:make-coroutine-bidirectional-stream is called. 
si:make-coroutine-bidirectional-stream returns anes stream associated 
with the new stack group. 


styi and :tyo messages to the stream associated with the new stack group 
cause that stack group to be resumed and function to be called from that 
stack group. The first argument to function is the stream associated with 
the stack group from which si:make-coroutine-bidirectional-stream was 
called. Any additional arguments come from arguments. function should 
send :tyi or :tyo messages to the stream that is its first argument. These 
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messages resume the stack group in which 
si:make-coroutine-output-stream was called. In this way function and the 
caller of sizmake-coroutine-bidirectional-stream communicate through the 
shared buffers; output from one function becomes input to the other. 


si:coroutine-input-stream Flavor 
Coroutine input stream. Defines a :next-input-buffer method. Use this to 
construct an input stream from a function written in terms of output 
operations. 


si:coroutine-output-stream Flavor 
Coroutine output stream. Defines :new-output-buffer and 
:send-output-buffer methods. Use this to construct an output stream to a 
function written in terms of input operations. 


si:coroutine-bidirectional-stream Flavor 
Bidirectional coroutine stream. Defines :next-input-buffer, 
snew-output-buffer, and :send-output-buffer methods. Use this to 
construct a bidirectional stream to a function written in terms of input and 
output operations. 


2.3.19 format ~\ directives can have package prefixes 


Format directives enclosed in backslashes can now have package prefixes. If they 
have none, they refer to symbols in the format package. 


See the special form format:defformat. 


2.3.20 Wildcard Directory Mapping Available 


True wildcard mapping of directories is now supported. This facility is used by 
functions that copy and rename files. It allows you to copy or rename entire 
subtrees. 


The rules for mapping directory components between two wildcard pathnames and a 
starting instance are parallel to the rules for single names. Directory level 
components play roughly the roles of characters in the name-translating algorithm. 
See the section “Wildcard Pathname Mapping”. 


Consider a directory component as a sequence of directory level components. The 
levels are separated by level delimiters (> in LMFS). Example: in the pathname 
>foo>bar>*>mumble*>x>**>y>a.b.3, the directory level components are foo, bar, *, 
mumble*, x, **, and y. The source and target patterns, as well as the starting 
instance, are considered as sequences of directory level components, and are matched 
and translated level by level. 


For this purpose, each directory level component may be classified as one of three 
types: 
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Type Directory representation 
constant String containing no *’s 
wild-inferiors ** in LMFS, ... in VMS 
must-match * or string containing at least one * (but not the string 


representing wild-inferiors) 


The matching and mapping of constant and wild-inferiors levels proceeds in a 
manner identical to the matching and mapping of constant substrings and *’s for 
single names. See the section “Wildcard Pathname Mapping”. Constant directory 
level components act as constant substrings in that algorithm, and wild-inferiors 
levels as *’s. That is, wild-inferiors level components match and, on the target side, 
carry, zero to any number of constant directory level components. 

Examples: 


Source pattern: >SyS>*x>*. xX. newest 

Target pattern: >old-systems>release-5>**>x, *.* 

Starting instance: >sys>Imfs>patch> Imfs-33.patch-dir .66 

Target instance: >old-systems>release-5>Imfs>patch> Imfs-33.patch-dir .66 
Source pattern: >a>b>c>*x>d>e>**DX.y. x 

Target pattern: >t>U>kKM>*X WK. KK 

Starting instance: >a>b>e>p>q>d>e>f>g>x.y.1 

Target instance: >t>u>p>q>m>f>g>ow>x.y.1 


Must-match components are matched with exactly one directory level component, 
which must be present. They are mapped according to the string-mapping rules in 
the name-translating algorithm. See the section "Wildcard Pathname Mapping". 


Example: 


Source pattern: >a>b>e> fook>d>*>*. x, * 

Target pattern: >x>xbar >y>*man>*. x. x 

Starting instance: >a>b>c>fool ish>d>yow>a. lisp.1 
Target instance: >x>lishbar>y>yowman>a. lisp. 1 


You may intersperse constants, must-matches, and wild-inferiors directory level 
components, as long as the sequence of wildcard types is the same in both patterns. 


Example: 


Source pattern: a>*>c>*k>K. Lisp. * 
Target pattern: >bsg>sub>new-*>q>**>*, ¥. x 
Starting instance: >a>bb>e>d>e>p1. lisp.6 
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Target instance: >bsg>sub>new-bb>q>d>e>p1. lisp.6 


2.3.21 Previously undocumented function: describe-system 


describe-system is a useful function for finding information about a system. 


describe-system system-name &key (show-files t) Function 
(show-transformations t) 

Displays useful information about the system named system-name. This 
includes the name of the system source file, the system package default if 
any, and component systems. For a patchable system, describe-system 
displays the system version and status, a typical patch file name, the sites 
maintaining the system, and, if the user wants, a listing of patches. If 
:show-files is t, it displays the history of the files in the system. Other 
possible values are nil (do not show file history) and :ask (ask the user). If 
:show-transformations is t, it displays the transformations required to 
make the system. Other possible values are nil (do not display 
transformations) and :ask (ask the user). 


2.3.22 improvements to make-system: error-restart, selective transformations 


make-system now has an error-restart that reinvokes the make-system itself. It 
probes for files that have changed since the make-system was started. 


make-system also has a new possible answer, "S" (selective), to its request for 
confirmation of the list of transformations to be performed. If the user answers "S", 
make-system proceeds as if the :selective option had been specified, asking for 
confirmation of each individual transformation. 


See the function make-system. 


2.3.23 Second argument to si:install-microcode now optional 


The second argument to si:install-microcode, fo-file-or-version, is now optional. 
This argument defaults to a file on FEP:> and rarely needs to be supplied. 


si:install-microcode from-file-or-version &optional to-file-or-version Function 
(3600 only) Installs microcode from a system file into a file in the FEP file 
system. 


from-file-or-version is a microcode version number (in decimal). The file 
resides in the logical directory sys:l-ucode;. 


to-file-or-version rarely needs to be supplied. It defaults to a file on FEP:> 
(the root directory of the boot disk) whose name is based on the microcode 
name and version. If supplied, fo-file-or-version is either a pathname (string) 
of a file on FEP:>, or an integer n, which stands for the file TMC5- 
MIC.MIC.n on FEP:>. . 
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2.3.24 Change in argument to process-wait-with-timeout 


The interval argument to process-wait-with-timeout can now be nil. If so, 
process-wait-with-timeout waits indefinitely for the application of function to 
arguments to return soniething other than nil. 


process-wait-with-timeout whostate time function &rest args Function 
This is a primitive for waiting. It applies function to arguments until the 
function returns something other than nil or until the interval times out. 
interval is a time in 60ths of a second. When the process times out, 
process-wait-with-timeout returns nil. When the function returns 
something other than nil within the interval, process-wait-with-timeout 
returns t. 


If interval is nil, process-wait-with-timeout waits indefinitely for the 
application of function to arguments to return something other than nil. 
This behavior is the same as that of process-wait. 


2.3.25 New option for si:sb-on: :mouse (3600 only) 


The :mouse option for si:sb-on on the 3600 causes sequence breaks when the 
mouse moves. This option is on by default. 


si:sb-on &optional when Function 
si:sb-on controls what events cause a sequence break, that is, when 
rescheduling occurs. The following keywords are names of events that can 
cause a sequence break. 


:clock This event happens periodically based on a clock. The 
default period is one second. For the 3600, the period is 
the value of the variable si:ssequence-break-interval, an 
integer representing the number of microseconds in the 
period (default 1000000.). For the LM-2, see the meter 
sys:%tv-clock-rate. This event is enabled by default. 


:disk (3600 only) A sequence break happens whenever the disk 
hardware/firmware decides to wake up the wired disk 
system. This might occur with every disk I/O operation or 
after several have been completed. This event is always 
enabled; you cannot turn it off. However, these sequence 
breaks do not cause rescheduling. 


smouse (3600 only) Happens when the mouse moves. Sixty times 
per second it tests the variable tv:mouse-wakeup, which 
is set by the FEP. Causes a sequence break if the value is 
not nil. This event is enabled by default. 


sunibus (LM-2 only) Happens when a character is received from 
the keyboard. Actually, a sequence break happens 
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whenever input is received from any UNIBUS channel that 
has a flag bit set. This event is disabled by default. 


‘keyboard (LM-2 only) Same as :unibus. 


:chaos (LM-2 only) Happens when a packet is received from the 
Chaosnet, or transmission of a packet to the Chaosnet is 
completed. This event is disabled by default. 


Since the keyboard and Chaosnet are heavily buffered, there is no particular 
advantage to enabling the :keyboard and :chaos events, unless the :clock 
event is disabled. 


With no argument, si:sb-on returns a list of keywords for the currently 
enabled events. 


With an argument, the set of enabled events is changed. The argument can 
be a keyword, a list of keywords, nil (which disables sequence breaks entirely 
since it is the empty list), or a number that is the internal mask, not 
documented here. 


New format for trace output 


The default format for trace output has changed. 
Example of the old style: 
(1 ENTER FACT (4.)) 


(2 ENTER FACT (3.)) 
(3 ENTER FACT (2.)) 
(4 ENTER FACT (1.)) 
(5 ENTER FACT (0.)) 
(5 EXIT FACT 1.) 
(4 EXIT FACT 1.) 
(3 EXIT FACT 2.) 
(2 EXIT FACT 6.) 


(1 EXIT FACT 24.) 


Example of the new style: 
1 Enter FACT 4. 


I 
| 
| 
l 
| 
| 
| 
1 


2 Enter FACT 3. 
3 Enter FACT 2. 
{ 4 Enter FACT 1. 
| 5 Enter FACT 0. 
|! 5 Exit FACT 1. 
| 4 Exit FACT 1. 
3 Exit FACT 2. 

2 Exit FACT 6. 

Exit FACT 24. 


You can use the variables si:*trace-columns-per-level*, si:*trace-bar-p*, 
si:*trace-bar-rate*, and si:*trace-old-style® to control the format of trace output. 
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si:*trace-columns-per-level* Variable 
For trace output, controls the number of columns of indentation that are 
added for each level of function call. The value must be an integer. The 
default is 2. 


si:*trace-bar-p* Variable 
For trace output, controls whether columns of vertical bars are printed. If 
the value is not nil, they are printed; otherwise, spaces are printed instead of 
the vertical bars. The default is t (print the bars). 


si:*trace-bar-rate* Variable 
When si:*trace-bar-p* is not nil, columns of vertical bars are printed in 
trace output for every n levels of function call, where n is the value. The 
value must be an integer. The default is 2. 


si:*trace-old-style* Variable 
If not nil, the old, Maclisp-compatible form of printing trace output is used. 
The default is nil (use the new style). 


2.3.27 Recursion in Bound and Default Handlers Eliminated 


Condition handlers bound by condition-bind, condition-bind-default, and related 
special forms no longer cause infinite recursion when they signal the same condition 
they are handling. 


While a bound or default handler is executing, that handler and all handlers inside it 
are removed from the list of bound or default handlers. This is to prevent infinite 
recursion when a handler signals the same condition that it is handling, as in the 
following simplistic example: 
(condition-bind ((error ’( lambda (x) (ferror “foo")))) 
(ferror "foo”)) 


If you want recursion, the handler should bind its own condition. 


2.3.28 :proceed methods can now return nil 
It is no longer an error for a :proceed method to return nil as its first value. 


A :proceed method can return a first value of nil if it declines to proceed from the 
condition. If a nil returned by a :proceed method becomes the return value for a 
condition-bind handler, this signifies that the handler has declined to handle the 
condition, and the condition continues to be signalled. When the :proceed message 
was sent by the Debugger, the Debugger prints a message saying that the condition 
was not proceeded, and it returns to its command level. This might be used by an 
interactive :proceed method that gives the user the opportunity either to proceed or 
to abort; if the user aborts, the method returns nil. Returning nil from a 
:proceed method should not be used as a substitute for detecting earlier (such as 
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when the condition object is created) that the proceed type is inappropriate for that 
condition. | 


2.3.29 New clause for condition-call: :no-error 


condition-call and condition-call-if, like condition-case, can now take a 
sno-error clause as the final clause. 


As a special case, predicate-m (the last one) can be the special symbol :no-error. If 
form is evaluated and no error is signalled during the evaluation, condition-case 
executes the :no-error clause instead of returning the values returned by form. 
The variables vars are bound to the values produced by form, in the style of 
multiple-value-bind, so that they can be accessed by the body of the :no-error 
case. Any extra variables are bound to nil. 


2.3.30 New message to arithmetic errors: :operands 


All arithmetic errors (built on sys:arithmetic-error) now handle the :operands 
message. On the 3600, this returns a list of the operands in the operation that 
caused the error. On the LM-2, this message nearly always returns nil. 


See the flavor sys:arithmetic-error. 


2.3.31 Change in Debugger special command for fs:directory-not-found 


The condition flavor fs:directory-not-found now has two Debugger special 
commands: :create-directory, to create only the lowest level of directory, and 
:create-directories-recursively, to create any missing superiors as well. 


fs:directory-not-found Flavor 
The directory of the file was not found or does not exist. This means that 
the containing directory was not found. If you are trying to open a directory, 
and the actual directory you are trying to open is not found, 
fs:file-not-found is signalled. This flavor is built on fs:file-lookup-error. 


This flavor has two Debugger special commands: :create-directory, to 
create only the lowest level of directory, and 
:create-directories-recursively, to create any missing superiors as well. 


2.3.32 New optional argument to gc-immediately 


gc-immediately now takes an optional argument, nil by default. If it is not nil, 
gc-immediately does garbage collection without querying, regardless of how much 
space is left. 


gce-immediately optional no-query Function 
gc-immediately does nonincremental garbage collection, taking less space 
and less total time than an incremental gc, but running continuously in the 
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process calling it, until the garbage collection is complete. The main 
advantage of this compared to incremental gc is that it requires less free 
space and hence can succeed where an incremental ge would fail because 
virtual memory was too full. 


If no-query is not nil, gc-immediately commences garbage collection without 
asking any questions, regardless of how much space is available. 


You should call this rather than si:full-ge (unless you are compressing a 
band). The difference is that ge-immediately does not lock out other 
processes, does not run various full-ge initializations, and does not affect the 
static areas. 


Suppose garbage collection has already started, that the flip has occurred but 
not all good data have been copied out of old space. gc-immediately then 
copies the rest of the good data but does not flip again. 


2.3.33 New optional arguments to print-notifications 


print-notifications now takes optional arguments that allow you to print only part 
of the notification history. 


print-notifications &optional (from 0) Function 
(to (l- dength tv:notification-history))) 
Reprints any notifications that have been received. The difference between 
notifications and sends is that sends come from other users, while 
notifications are asynchronous messages from the Lisp Machine system itself. 
If from or to is specified, prints only part of the notifications list. 


Example: (print-notifications 0 4) prints the five most recent notifications. 


2.3.34 :draw-filled-in-circle uses same algorithm as :draw-circle 


Previously, the :draw-filled-in-circle method of tv:graphics-mixin used a different 
algorithm from that of the :draw-circle method. This algorithm was slower and 
sometimes resulted in inaccurate displays when the two methods were used together. 
:draw-filled-in-circle now uses the same algorithm as :draw-circle. 


:draw-circle center-x center-y radius &optional alu of Method 
tv:graphics-mixin 
Draw the outline of a circle specified by its center and radius. 


:draw-filled-in-circle center-x center-y radius &optional alu of Method 
tv:graphics-mixin 
Draw a filled-in circle specified by its center and radius. 
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2.3.35 Previously undocumented variables: sys:mouse-x-scale-array and 
sys:mouse-y-scale-array (LM-2 only) 


sys:mouse-x-scale-array and sys:mouse-y-scale-array are variables on the LM-2 
whose values are arrays used in mouse scaling. These arrays determine the relation 
between motion of the mouse on the table and motion of the mouse cursor on the 
screen. That relation can vary with the speed of the mouse. You can use these 
variables to speed up or slow down the motion of the mouse cursor caused by 
corresponding motion of the mouse. 


sys:mouse-x-scale-array Variable 
(LM-2 only) The value of this variable is an array that, along with the array 
that is the value of sys:mouse-y-scale-array, can be used to control mouse 
scaling. These arrays determine the relation between the rates of motion of 
the mouse on the table and the mouse cursor on the screen. This relation 
can be nonlinear and can vary with the speed of the mouse. For example, 
fast mouse motion can move the cursor a distance that is proportionally 
greater than slow mouse motion. 


Scaling is computed as follows. The even-numbered elements of 
sys:mouse-x-scale-array are compared with the value of 
sys:mouse-x-speed, and the even-numbered elements of 
sys:mouse-y-scale-array are compared with the value of 
sys:mouse-y-speed. sys:mouse-x-speed and sys:mouse-y-speed are the 
x- and y-components of the mouse speed on the table, typically in units of 
hundredths of an inch per second. 


For each array, the first even array element that is greater than the mouse 
speed causes its corresponding odd-numbered array element to be multiplied 
by the mouse motion on the table and then divided by 1024 (decimal). The 
result is the mouse motion on the screen. Appropriate care is taken to save 
the fractions for the next computation. 


The default array setup code is as follows: 


3; Set the X scale to 2/3 and the Y scale to 3/5. 
3; Disable speed-dependent scaling. 

(aset #037777777 sys:mouse-x-scale-array 0) 

(aset (// (Ish 2 10.) 3) sys:mouse-x-scale-array 1) 
(aset #037777777 sys:mouse-y-scale-array 0) 

(aset (// (Ish 3 10.) 5) sys:mouse-y-scale-array 1) 


The following code provides for simple scaling of motion for the Hawley 
mouse. The microcode knows specially about each array. You may store into 
each array, but you may not replace it with a new array or use 
adjust-array-size on it. 
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33; Aids to trying speed-dependent scaling 
333 Specs are scale-factor speed-break 
333 No attempt to treat X and Y differently 
333 Args of (1 80. 2) seem to be about right for the Hawley mouse 
(defun mouse-speed-hack (&rest specs) 
(loop for (scale speed) on specs by ’cddr 
for i from 0 by 2 
do (aset (or speed #037777777) sys:mouse-x-Scale-array i) 
(aset (or speed #037777777) sys:mouse-y-scale-array i) 
(aset (// (fix (* 2 scale 1024.)) 3) 
sys :mouse-x-scale-array (1+ i)) 
(aset (// (fix (* 3 scale 1024.)) 5) 
sys :mouse-y-scale-array (1+ i)))) 


(defun hawley-mouse-hack () 
(mouse-speed-hack 1 80. 2)) 


The corresponding variables tv:mouse-x-scale-array and 
tv:mouse-y-scale-array exist on the 3600, but in this release they have no 
effect. 


sys:mouse-y-scale-array Variable 
(LM-2 only) The value of this variable is an array that, along with the array 
that is the value of sys:mouse-x-scale-array, can be used to control mouse 
scaling. See the variable sys:mouse-x-scale-array. 


2.3.36 New optional argument to tv:mouse-wait 


tv:mouse-wait now takes another optional argument, a string to be displayed in the 
status line while waiting for the status of the mouse to change. 


tv:mouse-wait optional (old-mouse-x tv:mouse-x) Function 

(old-mouse-y tv:mouse-y) 

(old-mouse-buttons tv:mouse-last-buttons) 

(whostate “Mouse") 
This function waits for any of the variables tv:mouse-x, tv:mouse-y, or 
tv:mouse-last-buttons to become different from the values passed as 
arguments. While waiting, whostate is displayed in the status line. To avoid 
timing errors, your program should examine the values of the variables, use 
them, and then pass in the values that it examined as arguments to 
tv:mouse-wait when it is done using the values and wants to wait for them 
to change again. It is important to do things in this order, or else you might 
fail to wake up if one of the variables changed while you were using the old 
values and before you called tv:mouse-wait. 
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2.3.37 New flavors: tv:truncatable-lines-mixin, tv:truncating-lines-mixin 


tv:truncatable-lines-mixin causes text to be truncated at the right edge of the 
window, but only if the window’s “truncate line out" flag is set. 
tv:truncating-lines-mixin initializes this flag to on so that truncation actually 
happens. These flavors replace the obsolete flavor tv:line-truncating-mixin, which, 
despite its name, did not initialize the "truncate line out" flag to on. You can use 
the new messages :truncate-line-out and :set-truncate-line-out to read and set 
this flag. The flavor tv:truncating-window is now built on 
tv:truncating-lines-mixin. 


tv:truncatable-lines-mixin Flavor 
If you mix in this flavor and the window’s truncate line out flag is on, 
typeout does not wrap around when lines are too long. That is, when the 
cursor is near the right-hand edge of the window and an attempt is made to 
type out a character, the character is not typed out; text is truncated at the 
edge of the window. When the truncate line out flag is turned off, this 
flavor has no effect. 


tv:truncating-lines-mixin | Flavor 
When this flavor is mixed in, lines of output that are too long to fit inside 
the window do not wrap around but are truncated at the edge of the 
window. This flavor is built on tv:truncatable-lines-mixin. It initializes 
the window’s truncate line out flag to be on. 


tv:truncating-window Flavor 
This flavor is built on tv:window with tv:truncating-lines-mixin mixed in. 
If you instantiate a window of this flavor, it will be like regular windows of 
flavor tv:window except that lines will be truncated instead of wrapping 
around. 


:truncate-line-out of tv:sheet Method 
Returns t if the window’s truncate line out flag is set, or nil if it is not. 


:set-truncate-line-out new-value of tv:sheet Method 
Sets the value of the window’s truncate line out flag. If new-value is t the 
flag is turned on; if nil, it is turned off. 


2.3.38 New variable: tv:*mouse-modifying-keystates* 


In previous releases you could use the variables tv:mouse-double-click-time and 
tv:*mouse-incrementing-keystates* to replace double clicks with shifted clicks. 


Now mouse characters — characters with the %%kbd-mouse bit set to 1 — can be 
modified with the modifier keys CONTROL, META, SUPER, and HYPER, just as keyboard 
characters can. Which of these keys modify mouse characters depends 0! on the value 
of the variable tv:*mouse-modifying-keystates"*. 
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You can use login-forms in an init file to set the variables 
tv:mouse-double-click-time, tv:*mouse-incrementing-keystates*, and 
tv:*mouse-modifying-keystates* and customize the behavior of the mouse. 


tv:mouse-double-click-time Variable 
The maximum period of time (in microseconds) between mouse clicks for 
which the clicks are interpreted as a double click instead of two single clicks. 
Default: 200000 (decimal). If you set this to nil, disabling double clicking 
entirely, mouse response time improves slightly. 


tv:*mouse-incrementing-keystates* Variable 
A list of names of keys, acceptable to tv:key-state. If one or more of these 
keys are pressed, single mouse clicks are interpreted as double clicks. 
Default: (:shift). 


tv:*mouse-modifying-keystates* Variable 
A list of names of keys, acceptable to tv:key-state. If one or more of these 
keys are pressed, sets the corresponding modifier bits in the mouse character. 
Default: (:control :meta :super :hyper). If a key appears as an element 
of both this list and the list that is the value of 
tv:*mouse-incrementing-keystates*, the modifier bit is set and the click is 
interpreted as a double click. 


2.3.39 Shifted Mouse Clicks Can Now Be Used for Editor Commands 


Mouse characters can now be modified with modifier keys. See the variable 
tv:*mouse-modifying-keystates*. The editor considers each modified mouse click 
to be a separate command. You can bind commands to particular modified mouse 
clicks. You can also use Install Mouse Macro (m-x) with modified mouse clicks to 
increase the number of mouse macros available. 


You can put a form in an init file to install a Zwei command on a modified mouse 
click. Note that in the following example, the mouse click marks the paragraph that 
surrounds point, not the paragraph under the mouse cursor: 
(login-forms 
zwei: (set-comtab 

xs tandard-comtab* ;in standard command table 

”(#\Hyper-Mouse-L com-mark-paragraph) 

)) 


2.3.40 Previously undocumented functions: 
tv:add-to-system-menu-programs-column, tv: Saeed uate ere ccene Saari 


tv:add-to-system-menu-programs-column lets you add an entry to the Programs 
column of the system menu. tv:add-to-system-menu-create-menu lets you add 
an entry to the menu that appears when you click on [Create] in the system menu 
or in the Edit Screen menu. 
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tv:add-to-system-menu-programs-column name form Function 
documentation &optional after 

Adds a program to the Programs column of the system menu. name is a 
string, the name to appear in the menu. form is a form to evaluate, in its 
own process, when the program is selected; often this is a call to 
tv:select-or-create-window-of-flavor. documentation is mouse 
documentation for the menu item. after determines the position of the new 
program name in the Programs column: 


nil Bottom of the column 

t Top of the column 

string After. the program named string that is now in the menu 
Example: 


(tv: add-to-system-menu-programs-column 
“Hardcopy” ’(press:hardcopy-via-menus nil t) 
“Print files on the hardcopy printer”) 


tv:add-to-system-menu-create-menu name flavor documentation Function 
&optional after 7 

Adds an entry to the menu that appears when you click on [Create] in the 
system menu or in the Edit Screen menu. name is a string, the name of 
the menu item. flavor, a flavor name, is the flavor of window that is created 
when the menu item is selected. documentation is mouse documentation for 
the menu item. affer determines where in the [Create] menu the item 
should appear: 


nil | Bottom of the menu 

t Top of the menu 

string After the item named string that is now in the menu 
Example: 


(tv: add-to-system-menu-create-menu 
“Concept Editor” ’crl:concept-editor 
“Edit the representation of a concept in the CRL system”) 


tv:select-or-create-window-of-flavor find-flavor &optional Function 
(create-flavor find-flavor) 
Selects the most recently selected window of flavor find-flavor. If no window 
of that flavor exists, makes a window of flavor create-flavor and selects it. 
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2.3.41 Argument to :menu type menu items can be a menu or a form 


The "argument" to :menu type menu items — the specifier for the submenu — can 
now be a menu or a form. Previously it could be a menu or a symbol. 


2.3.42 Clicking Middle Edits Current String in Choose-variable-values Windows 


In a choose-variable-values window, clicking middle on a string that is displayed as a 
value now lets you edit that string. 


2.3.43 tv:scroll-maintain-list init function can take arguments 


Previously, the init function specified as an argument to tv:scroll-maintain-list was 
itself called with no arguments. Now you can use an optional &rest argument to 
tv:scroll-maintain-list to specify arguments to be passed to the init function at 
redisplay time. 


tv:scroll-maintain-list init-fun item-fun &optional per-element-fun Function 
stepper-fun compact-p pre-proc-fun &rest 
init-args 
Constructs and returns a list item that updates itself when the scroll window 
is asked to redisplay. Takes the following arguments: 


Init-fun The init function that will be called at redisplay time to 
provide a representation of the set of objects to be 
displayed. 

init-args Arguments to be passed to init-fun when called at | 


redisplay time. 7 


item-fun The item function, to be applied to each object of yours to 
produce a display item. 


per-element-fun A function to be put in the list item plist of the list item 
as the :function function. 


stepper-fun The function that is called on the set of objects and all 
"rest"s of the set. It is expected to return three values: 
the next element, the "rest" of the set, and t if it has 
returned the last element of the set. If not given, 
stepper-fun defaults to tv:scroll-maintain-list-stepper, a. 
function that handles ordinary lists. 


compact-p An optional flag that causes tv:scroll-maintain-list to 
copy the list it builds at each redisplay into a special area 
for such lists, in order to optimize paging performance. 
The list so constructed will be stored in compact (that is, 
cdr-coded) form. 


pre-proc-fun A function to be put in the list item plist of the list item 


106 RN Release 5.0 Release Notes 
Symbolics, Inc. March 1984 


as the :pre-process-function function. If not given, 
pre-proc-fun defaults to 
tv:scroll-maintain-list-update-function. 


Following is a simple example: 


(tv:scroll-maintain-list #’( lambda (instance) sThe init function 
(send instance °:value-list) ) 
#°’( lambda (value) 3The item function 


(tv:scroll-parse-item 
*(:string ,(format nil “~S" value)))) 
nil nil nil nil 
self) sArgument to init function 
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3. Changes to Networks in Release 5.0 


3.1 Incompatible Changes to Networks in Release 5.0 


3.1.1 Network Namespace System 


Release 5.0 implements a new network database. This database is a collection of 
objects known to networks, such as hosts, users, networks, printers, sites, and 
classes of objects. Objects of different classes can have the same names. To 
eliminate naming conflicts when different sites are linked by long-distance networks, 
the database is divided into namespaces, or mappings of names of objects to objects. 


The database is maintained by database servers. A namespace editor exists to add 
objects to the database or change their properties. The user interface to the editor 
is the function tv:edit-namespace-object. The system also includes means of 
defining protocols and media, and defining and invoking network services. 


For more information on the changes to networks in Release 5.0: See the section 
“Network Database". See the section "The Lisp Machine Generic Network System". 
See the section "Interfacing to the Network System". 


3.1.2 chaos:stream, chaos:close, and chaos-;finish renamed 
The following functions have been renamed in the Chaosnet implementation. 


All the known places in the system that use these have been updated. The old 
function names are still shadowed in the chaos: package in order to cause undefined 
function errors during compilation instead of calling an incompatible function. 


Old name New name 
chaos:stream chaos:make-stream 
chaos:close chaos:close-conn 
chaos:finish chaos:finish-conn 


3.1.3 neti:reset, neti:enable, and neti:disable replace chaos:reset, chaos:enable, and 
chaos:disable 


The functions chaos:reset and chaos:enable have been replaced with neti:reset 
and neti:enable, which reset and enable the entire network system. If you call 
neti:reset and then want to turn the network back on, you must now call 
neti:enable to do so. Formerly, chaos:reset turned the network back on after 
resetting it. | 
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chaos:disable has been replaced by neti:disable. 


neti:reset Function 
Resets the local networks. Disables and then resets the interfaces. After 
using neti:reset you must call neti:enable if you want to turn the network 
back on. 


neti:enabie Function 
Enables the local networks and interfaces. 


neti:disable Function 
Disables the local networks and interfaces. If you want to reset the local 
networks and interfaces and then turn them back on, you should call 
neti:reset and then neti:enable. 


3.1.4 Changes to chaos:open-stream 


In general, applications should use the service mechanism instead of Chaos-specific 
routines. See the section "The Lisp Machine Generic Network System". 


The function chaos:open-stream accepts nil as the host argument to mean issue a 
listen for the contact name (as opposed to a request at a specific host). The stream 
that is returned is still in the RFC Received state. The following messages can be 
sent to the stream: 


:foreign-host Returns the host object of the host requesting the connection. 
saccept Accepts the connection. 


sreject &optional reason 
Rejects the connection with reason. 


3.1.5 chaos:send-unc-pkt automatically returns the packet to the free pool 


chaos:send-unc-pkt does an implicit chaos:return-pkt, which returns the packet 
to the free pool at the appropriate time. The user is not allowed to reuse this 
packet. This is an incompatible change. 


The documentation for chaos:send-pkt in the Chaosnet document failed to mention 
that chaos:send-pkt automatically returns the packet via chaos:return-pkt. The 
code for this function remains unchanged; this is a clarification. 


3.2 New Features in Networks in Release 5.0 
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3.2.1 New function: chaos:conn-finished-p 


chaos:conn-finished-p conn Function 
A predicate that returns something other than nil if all data that have been 
output have been received and acknowledged by the foreign side of the 
connection. 


3.2.2 Changes to VMS Chaosnet 
The following changes have been made to VMS Chaosnet: 


¢ The NCP writes the CHNCP.GSF global section, which contains the 
connection database. The SHOWNCP utility displays the data in 
CHNCP.GSF. 


e An NCP internal routing table server allows routing tables to be examined 
dynamically. 


¢ The FILE server now supports pathname completion and directory creation. 


e When transferring binary files to a VMS host, the files are written in the 
following way: If the file is a "QFASL" file, it is written as an RMS sequential 
file with variable-length records whose maximum size is 2048 bytes. Note that 
only the last record can be less than 2048 bytes long. If is not a "QFASL" 
file, it is written as an RMS sequential file with fixed-length, 512-byte records. 
A "QFASL" file is any file that has to remember its length in bytes exactly; 
some examples are Lisp Machine .BIN and .QBN files. An example of a 
non-"QFASL" binary file is a VMS executable file (.EXE). 


¢« CFTP now supports GET and SEND /BINARY=0yte-size. It also supports the 
GET/VAR feature. This tells CFTP, when transferring binary files, to write 
RMS sequential files with variable-length records whose maximum size is 2048 
bytes. Note that only the last record can be less than 2048 bytes long. 
Without /VAR, CFTP writes RMS sequential files with fixed-length, 512-byte 
records. ? 


e A TELNET user exists. You can invoke it with the DCL "TELNET" foreign 
command. 


3.2.3 Changes to Serial I/O: Parity Recovery and Xon/Xoff Character Setting 


Two features, serial parity recovery and XON/XOFF character setting, have been 
added to serial I/O. The new parameters (at either initialization or :put) are: 


:sinput-error-character 
The value is a character to be substituted for any input character 
in which a parity error is detected. This is independent of the 
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:check-parity-errors flag. If the value is nil (the default), the 
character is left alone. 


:output-xoff-character 
The value is a character that is used to control flow of data from 
the Lisp Machine to the external device. It is used to suspend 
the flow of data when the :xon-xoff-protocol parameter is set. 
The default is #0023. 


:output-xon-character 
The value is a character that is used to control flow of data from 
the Lisp Machine to the external device. It is used to resume the 
flow of data when the :xon-xoff-protocol parameter is set. The 
default is #0021. 


:input-xoff-character 
(3600 only) The value is a character that is used to control flow of 
data from the external device to the Lisp Machine. It is sent by 
the Lisp Machine to suspend the flow of data when the 
:generate-xon-xoff flag is set. The default is #0023. 


sinput-xon-character 
(3600 only) The value is a character that is used to control flow of 
data from the external device to the Lisp Machine. It is sent by 
the Lisp Machine to resume the flow of data when the 
:generate-xon-xoff flag is set. The default is #0021. 


3.2.4 Hdlc Serial I/O on the 3600 


In Release 5.0, the 3600 supports synchronous serial I/O using HDLC-like bitstuffing 
protocols. The CCITT-16 CRC polynomial is used. 


This facility requires that the 3600 be running with FEP version 14 or later. Also, 
some older 3600s might require that a special adapter cable be connected to serial 
port 1. 


An HDLC stream is a stream of flavor si:serial-hdlc-stream. Use the function 
si:make-serial-stream to make one of these streams. HDLC streams accept 
:read-frame and :write-frame messages. 


si:serial-hdlc-stream Flavor 
An HDLC serial I/O stream. This flavor is built on si:serial-binary-stream 
and si:serial-hdlc-mixin. 


si:make-serial-stream &rest options Function 
This function initializes the serial I/O facility and returns the serial I/O 
stream. 


The options argument is an alternating list of keyword symbols naming 
parameters, and initial values for those parameters. This lets you initialize 
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parameters when you start using the serial I/O stream. You can change 
most of them later with the :put operation. 


make-serial-stream, which accesses a serial line, causes the accessing 
process to wait if all ports are in use. The command c-m-SUSPEND allows you 
to invoke a restart handler to close a line that you believe has been left open 
by mistake. 


For documentation of parameters for serial I/O on the 3600: See the section 
"Parameters: 3600 Serial I/O". 


sread-frame sfring &optional (start 0) end of si:serial-hdlc-mixin Method 
Reads an HDLC frame into sfring. Returns the length actually read. 


:write-frame string &optional (start 0) end of si:serial-hdic-mixin Method 
Writes string as an HDLC frame. This method never calls process-wait 
and can be used in a simple process. If insufficient buffers are available, it 
returns a form that evaluates to t when buffers become available. 


3.2.5 Interface to the Vadic Modem 


This is the low-level interface to the Vadic modem. To open a connection with the 
Vadic modem do: 


(si:make-serial-stream ’:flavor ’si:modem ’ :phone-number 
number-to-dial other-serial-options) 


The system uses the autodialer to dial the given number and return a serial stream 
if it succeeds. If it fails, it signals an error based on sismodem-error. 
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4. Changes to Utilities in Release 5.0 


4.1 Incompatible Changes to Utilities in Release 5.0 


4.1.1 Default Font Format Now Bfd 


The Font Editor now reads and writes BFD format fonts by default. These fonts 
are stored in files of type BFD, as are the system TV and LGP-1 fonts. You can 
still read and write font files of other types, such as BIN files on the 3600 and 
QBIN files on the LM-2. See the section "Changes to Font Editor File Commands". 


4.1.2 Changes to Font Editor File Commands 


Pressing R in FED translates into "read any font file". Pressing W translates into 
“write any font file". FED determines what kind of file to read or write based on 
the (canonical) type of the pathname you type. The default type is BFD. Clicking 
left on [Read File] is equivalent to pressing R, and clicking left on [Write File] is 
equivalent to pressing W. 


The file type defaults from the (canonical) type of the pathname presented as the 
default. For example, if you type foo.bfd, you read or write a BFD file, whereas if 
you type foo.bin, you read or write a BIN file. FED complains if you supply a file 
type that is not a valid font file type for the machine you are using. 


Clicking right on [Read File] or [Write File] gives you a menu of file types to use as 
the default and the prompt. Holding down the CTRL key while pressing R or W or 
while clicking left on [Read File] or [Write File] makes the default type BFD. 
Holding down the META key while using one of these commands makes the default 
type BIN on the 3600 and QBIN on the LM-2. 


41.3 Changes to FUNCTION C, FUNCTION M, and FUNCTION Q 


FUNCTION C, FUNCTION M, and FUNCTION @ have been changed to provide easier and 
more consistent control over which windows they affect. The operation of these 
keystrokes is as follows: 


FUNCTION C Controls the black-on-white state of the entire screen. 
Arguments: 
None Toggle 
0 Black-on-white 
1 _~White-on-black 


FUNCTION c-C Controls the black-on-white state of the selected window. 
Arguments: 
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None Toggle 
0 Same state as main screen’s 
1 Opposite of state of main screen 


FUNCTION m-C Controls the black-on-white state of the mouse documentation 
line. Arguments: 


None Toggle 

0 Same state as main screen’s 

1 Opposite of state of main screen 
FUNCTION M Controls global MORE processing. Arguments: 

None Toggle 

0 Turn off MORE processing 

1 Turn on MORE processing 


FUNCTION c-M Controls MORE processing for the selected window. Arguments: 
same as those for FUNCTION M. 


FUNCTION @ Hardcopies the entire screen on the default screen hardcopy 
device. Arguments: none. 


FUNCTION c-@ Hardcopies the selected window on the default screen hardcopy 
device. Arguments: none. 


FUNCTION m-Q Hardcopies the entire screen, without the status line and mouse 
documentation line, on the default screen hardcopy device. 
Arguments: none. 


4.2 New Features in Utilities in Release 5.0 


4.2.1 New feature: Flavor Examiner (SELECT x) 


The Flavor Examiner is available via SELECT X or the system menu. This is strictly 
an interim program; it is supported fully in Release 5 but will eventually be 
incorporated into the Inspector. 


Use the HELP command to learn how to use this new feature. 


4.2.2 New terminal program (SELECT T) » 


The new terminal program incorporates the functions of the former Telnet and 
Supdup programs. It is available via SELECT T. Because it uses the generic network 
system, it allows access (in the presence of appropriate gateways) via autodialers to 
dialups, as well as direct Chaosnet and TCP through a gateway. 
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The prompt is still Connect to host:. To this you simply type the name of any host. 
(For information on naming of hosts, setting up host databases, declaring host 
addresses, and supported login services: See the section "Network Database". See 
‘the section "The Lisp Machine Generic Network System”.) 


The network system picks the best login service supported by the host and the 
optimum route to it. You can no longer specify a particular gateway and special 
contact name or port using » and/. Such control arguments and new higher-level 
ones (such as a particular protocol to use, rather than the default) will be added to 
the terminal program when the system includes a command processor. 


Once connected, you can give commands by pressing NETWORK followed by another 
- character. The following commands are available: 


NETHORK A Send an ATTN (in Telnet, a new Telnet "Interrupt Process") 
NETWORK D Disconnect 

NETWORK L Log out of remote host and break the connection 

NETWORK Q Disconnect and deselect this window (Quit) 

NETWORK M Toggle MORE processing 


You can issue more complicated commands using the extended command, NETWORK X. 
This command would use a command processor; in the interim (Release 5.0), this 
command uses the choose-variable-values facility. With NETWORK X you can change 
the following: 


e the escape character 
¢ whether characters overstrike or erase 
e whether MORE processing is enabled 


e in the case of Telnet, whether Imlac terminal codes are interpreted in host 
output 


These were all formerly single-letter commands. A facility also exists for logging host 
output to a wallpaper file. 


You can no longer press NETWORK at the Connect to host: prompt to issue a 
command before connecting. A command processor will fill this role in a future 
release. 


4.2.3 Show Hardcopy Status (m-x) replaces chaos:print-igp-queue 


The Zwei command Show Hardcopy Status (m-x) replaces chaos:print-lgp-queue as 
the means of viewing the print queue. 
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The command prompts for the name of a printer. You can specify the queue of a 
particular printer by typing the name of the printer, or you can see the queues for 
all printers by pressing RETURN. 


4.3 Improvements to Utilities in Release 5.0 


4.3.1 Font Editor and Inspector use ESCAPE to evaluate forms 


The Font Editor (FED) and the Inspector now use the ESCAPE key (on the 3600) 
and the ALTMODE key (on the LM-2) to evalute a Lisp form. Previously, those 
programs used the quote key for this function. QUOTE is still accepted for 
compatibility on the LM-2; this key does not exist on the 3600. 


4.3.2 Debugger c-' creates a process 


The c-M command in the Debugger has been changed to create a new process. 
While you are editing the message, you use FUNCTION $ to switch back to the 
Debugger, use its commands to investigate the state of the Lisp environment, and 
then switch back to the mail process to continue editing the message. 


4.3.3 m-SUSPEND selects frame with break read function for Debugger 


The behavior of m-SUSPEND in break loops has changed. The break read function 
now intercepts m-SUSPEND itself. When you press m-SUSPEND to enter the Debugger 
at the beginning of a line in a break loop, the current frame in the Debugger is now 
the frame that contains the break read function. The difference between 
m-SUSPEND and c-m-SUSPEND is that when you use m-SUSPEND at the beginning of a 
line, you enter the Debugger with a current frame that is closer to the frame that 
contains break’s caller. This eliminates irrelevant stack frames when, for example, 
you press c-SUSPEND to interrupt a program and then decide to enter the Debugger. 
This behavior is likely to change in a future release. 


4.3.4 END and c-END swapped in Converse 


When using the Converse facility prior to Release 5.0, pressing END sent a message 
and exited the Converse window; pressing c-END just sent a message, without leaving 
Converse. Now the reverse is true by default. Pressing END just sends the message, 
and pressing c-END sends the message and exits from the window. 


The new variable zwei:*converse-end-exits* controls the behavior of END and 
c-END in Converse. If its value is nil, END sends and remains in Converse, and c-END 
sends and exits. If its value is not nil, c-END sends and remains in Converse, and 
END sends and exits. The default value is nil. 
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4.3.5 Changes to Converse Notifications 


Converse beeps as soon as a message comes in, and if it is supposed to notify the 
user, it does so without waiting for the main Converse process to wake up. In pop- 
up mode, when the main Converse process is busy, an incoming message causes 
Converse to beep but not to display the message. This is necessary since only one 
message at a time should pop up. While the pop-up window is exposed, an incoming 
message causes Converse to beep. When the pop-up window is deexposed it is 
reexposed immediately with the new message in it. 


If the main Converse window is exposed, a new message is never shown via 
notification or a pop-up window. If the main Converse window is exposed but its 
process is busy (typically, when it is in the Debugger or in an editor command and 
waiting for typein), Converse beeps but does not display the message. You can 
display the message with print-sends or by clearing the Converse process. You can 
usually clear the Converse process by pressing ABORT. 
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5. Changes to the File System in Release 5.0 


5.1 Incompatible Changes to the File System in Release 5.0 


5.1.1 New Default LMFS Translation Table for Sys Hosts 


The default LMFS translation table for the SYS host has been changed to conform 
to the new rules for translating logical to physical pathnames. See the section 
"Changes to Logical Pathname Translations". 


Following is the new default translation table: 
*(("FONTS; TV;" “>sys>tv-fonts>") 
("FONTS; LGP-1;" “>sys>Igp-1-fonts>* ) 
("LMFS-PATCH;” “>sys>Imfs>patch>" ) 
("*;" ">sys>*>")) 


Note that logical directory names are followed by semicolons. Note also that 
translation tables for file systems other than LMFS might need translations for 
other logical directories as well. For example, because VMS file names cannot 
contain hyphens, a translation table for a VMS host might need to include specific 
translations for logical directories whose names contain hyphens, such as PRESS- 
FONTS;, L-SYS;, L-UCODE;, and L-FEP;. 


Conversion tools exist to convert Release 4 to Release 5 site files. These tools take 
care of the translations for the SYS host. See the document Software Installation 
Guide. Users defining other logical hosts must convert the translation files on their 
own. See the function fs:make-logical-pathname-host. 


5.1.2 LMFS Dumper Supports Accordion Wildcards 


The LMFS dumper supports the new accordion wildcards. This is an incompatible 
change in its behavior. 


Old Behavior: Previously, the dumper implicitly (and sometimes gratuitously) 
recursed over all subdirectories, with the wild name *.*.*, of what you asked it to 
dump. It did this recursion because there was no way to tell it not to. In addition, 
this recursion was necessary for file system backup. 


New Behavior: The dumper no longer recurses over all subdirectories, regardless of 
the top-level spec. Now, specify exactly those files you wish to dump using wildcards. 
Wildcards are powerful enough to say exactly what you mean, subsuming all 
previously possible cases, and allowing for many new ones. If you want recursion, 
express it via "accordion" wildcards (**). 


The default pathname to be dumped has thus been changed from >*.*.* to 
>**>*,*,.*, which is what the previous one was trying to say. If you give the new 
dumper >*.*.*, it now dumps exactly that, which is to say files directly in the root 
directory, and not files in any inferiors. 
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For example, >**>*.*.* specifies all files in the file system, and >lmach>**>*.* newest 
gets all of the newest files in >Imach or any of its subdirectories. 


Note that there is no operational change if you use the default of the backup 
dumper, namely, dump the whole file system. It just looks different on the menu. 


The dumper lists directories as it goes down encountering them. It is sufficiently 
clever to avoid simply expanding the wildcard, thereby listing the whole file system 
at one time. It has its own implementation of :wild-inferiors expansion. 


5.2 New Features in the File System in Release 5.0 


5.2.1 LMFS Now Supports Directory Links 


LMFS now supports directory links. A directory link is a link that acts like a 
directory and points to a directory or another directory link. Directory links must 
have the type "directory" and the file version 1 in order to be recognized as such. It 
is impossible to create directory links and directories with conflicting names. It 
follows that the target of a directory link must be of type "directory" and version 1, 
although null string type and null version are accepted to mean this, as well. 


The maximum length of link-chasing at any level is 10. Full circular-link checking 
has also been implemented at the file level; it was not previously present. There is 
no such thing as multilevel circularity. 


Example: 


>abel>foo.bar is a file. 
>baker >david.directory.1 is a link to >abel.directory.1 
Opening >baker>david>foo.bar in fact opens >abel>foo.bar. 


Directory links are not marked as such in any way, and are not treated as such 
unless a directory of that name is being sought. Thus, the setting of link 
transparencies on a directory link has no effect on its behavior as a directory link. 


5.2.2 LMFS Accordion Wildcards. 


It is now possible to specify wild directories of any arbitrary subtree. The string ** 
appearing in a LMFS pathname means "any number of intervening levels of 
directory, including none". This is a form of wildcard, and it creates a wild 
pathname, which may be used anyplace wild pathnames are used. ** may appear 
one or many times in the directory component of a filespec, although multiple 
occurences might be prohibitively expensive. Usually ** is the last directory level; the 
further away from the last it is, the more expensive it gets. 


Note that a directory component of >** means every directory in the file system. 


:wild-inferiors represents ** in LMFS directory components. It is no longer 
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possible to create, from a string, a LMFS pathname with a directory component of 
:wild. Although such pathnames still work, pathnames with directory components 
of (:wild-inferiors) ought to be functionally indistinguishable. Directory 
components of :wild print as though they were (:wild-inferiors). 


Pathname ; What it means 
>**>* lisp All the newest lisp files on the whole file system. 


>**>*>secret>*.*.* All files in subdirectories (but not top-level directories) named 
"secret". 


>lmach>**>*.* newest 
All the newest files in >Imach and all its subdirectories. 


5.2.3 Dumper Restarting and Append-to-tape Default 


The LMFS dumper allows you to restart a dump from a given point. The option 
“restart pathname", when not empty, specifies a pathname that will be compared 
with the pathname of any file to be dumped or directory to be listed, and processing 
will be suppressed if the pathname of the object is considered "less" than the restart 
pathname. This comparison is similar to that done by fs:pathname-lessp. All of 
the dumper’s processing is strictly ordered by this predicate. 


The LMFS dumper also does not attempt to read tapes before writing on them 
unless either: | 


1. It intends to append to that tape, and is at the beginning of the tape. 


2. The new site attribute :validate-lmfs-dump-tapes, whose default is nil, is set 
to something other than nil. The default disabling of this attribute avoids 
attempts to read blank tape and potentially unbounded tape reading on some 
TOPS-20s. However, enabling the attribute offers more protection against 
accidental overwriting of backup tapes. 


In Release 5.0, the default for "append to tape" has been changed to "no" if you are 


running on the 3600. This is because hardware limitations make it impossible to 
append to a cartridge tape. Of course, you can dump a 3600 file system to a 
non-3600 remote noncartridge tape server and append. 
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6. Changes to Zmacs in Release 5.0 


6.1 Incompatible Changes to Zmacs in Release 5.0 


6.1.1 Both default pathnames for Source Compare (m-x) now use :newest version 


Source Compare (m-X) has been changed. The default pathname for the first 
argument now uses the :newest version instead of the :oldest. The default for the 
second argument continues to use :newest. The change was made because :oldest 
is usually not the right thing; also, the asymmetry of the two defaults, as well as 
the fact that :oldest is rarely used, caused unexpected behavior. 


6.1.2 Changes to Add Patch Changed Definitions (m-x) and Add Patch Changed 
Definitions of Buffer (m-x) 


Formerly, these commands queried for each definition to be patched if given a 
numeric argument, but by default they patched everything without asking. This 
default behavior was incorrect, because the commands patched things that had been 
patched before, and they made patches for definitions in the patch buffer itself. 


The commands no longer look at their numeric arguments. Add Patch Changed 
Definitions (m-x) queries for each buffer that contains a definition that might need 
to be patched; answering N skips the rest of that buffer. 


Both commands query for each definition to be patched: 


Y patches it 
N skips it 
P patches it and any additional definitions in the same buffer 


without asking any more questions 


If there are more buffers containing definitions to be patched, the commands ask 
questions again when they get to the next buffer. 


A definition that has not been changed since it was patched is not considered a 

candidate for patching again, even though it has been changed since the file was 
read in. Note that patching any region of text lying entirely within a definition 

(with Add Patch (m-X)) counts as patching that definition. 


6.1.3 Set Package (m-x) offers to create a package 


Set Package (m-X) used to insist that the package must already exist, although 
related commands (such as Find File (c-X% c-F) and Reparse Attribute List (m-x)) 

- offered to create a package for you. Set Package (m-x) has been changed so that it 
queries you about whether to create a package that doesn’t exist. 
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6.1.4 Change in numeric arguments to Copy File (m-x) 
The numeric arguments to Copy File (m-x) have been reorganized. 


The numeric argument controls copying of attributes. With no numeric argument, 
creation date and author are copied, and the mode (binary or character) of copy is 
determined by the file being copied. To force mode, or to suppress author or 
creation date copying, supply a numeric argument created by adding the values 
corresponding to the descriptions below. For example, c-12 m-x Copy File suppresses 
author and creation date copying. 


Force copy in 16-bit binary mode 
Force copy in character (text) mode 
Suppress copy of author 


oOo hh NS FE 


Suppress copy of creation date 


6.2 New Features in Zmacs in Release 5.0 


6.2.1 New Zmacs command: Resume Patch (m-x) 


Resume Patch (m-x) is a new Zmacs command that allows you to go back to a patch 
that you were not able to finish in the same session in which you started it. 


6.2.2 New Zmacs command: Start Private Patch (m-x) 


Start Private Patch (m-x) is similar to Start Patch (m-x), but it does not have 
anything to do with the world of systems, major and minor version numbers, and 
official patch directories. Instead of prompting for a system, Start Private Patch 
prompts for a file name. You can use Add Patch (m-x), Finish Patch (m-x), and 
Abort Patch (m-x). When you finish the patch it is written out to the specified file. 


This command allows you to make a private patch file that you can load, try out, 
and share with other users before you install a change as a numbered patch that all 
users automatically get. 


6.2.3 New Zmacs command: Source Compare Newest Definition (m-x) 


Source Compare Newest Definition (n-x) compares the current definition (the 
definition that surrounds point) with the newest version in the normal source file for 
this definition, regardless of patch files. 
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6.2.4 New Buffer-history Mechanism in Zmacs 


A new feature keeps the history list of previous buffers independently for each 
window. 


When you create a new window, it takes its history list initially from the global 
history list. From then on, as you switch from buffer to buffer within that window, 
the history of those changes is kept on the list for that window. This affects 
particularly Select Previous Buffer (c-m-L) and the default for Select Buffer (c-x B). 


The global history list still exists and is used for sorting in List Buffers (c-x c-B). 
Its ordering has not changed; it is maintained exactly as it used to be. 


With two windows on the screen, you now have single-key access to four buffers 
instead of three. This can be helpful when you are working on two buffers at a 
time, each with its own need for switching to refer to another buffer. 


6.2.5 New Zwei command: Comment Out Region (c-Xx c-;) 


Comment Out Region (c-% c-;) comments out each of the lines in the region. 
When the region ends at the beginning of a line, it does not comment out that line. 
If any part of the line is part of the region, it does comment out that line. 


A numeric argument inverts the meaning of the command, taking the comment 
indicators away from any commented-out lines in the region. When any part of the 
line is part of the region, it removes commenting from around that line. This 
assumes that any comment starting in column 1 is fair game. It stops when it 
encounters a line that does not begin the way a comment would, even if more lines 
that have been commented out remain in the region. It does keep the remainder of 
the region in this case, so that you can resume. 


This works correctly for the different comment indicators for different major modes. 


6.2.6 New Zwei command: Find Files in Tag Table (m-X) 


Find Files in Tag Table (m-x) preloads every file in the selected tag table into the 
editor. Like Tags Search (m-x), it prompts for a tag table if one doesn’t exist. 


The prompting allows for specification of a system or all buffers as the tag table or 
for reading a .TAGS file. 


6.2.7 New Zwei commands: Lowercase Code in [Region/Buffer] (m-x), Uppercase 
Code in [Region/Buffer] (m-x) 


Four new Zwei commands allow you to change the case of code in a buffer or region: 


e Uppercase Code in Buffer (m-x) 


e Uppercase Code in Region (m-x) 
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e Lowercase Code in Buffer (m-x) 


e Lowercase Code in Region (m-x) 


These commands allow you to change a program that is typed in Electric Shift Lock 
Mode into one that is typed entirely in lowercase text, and vice versa. Only code is 
changed; comments, strings, or quoted characters are not affected. The commands 

work only where the entire file is typed in the same mode. 


Like other Buffer commands, Uppercase Code in Buffer (m-x) and Lowercase Code in 
Buffer (m-x) query for a buffer name (the default is the current buffer) before 
operating on that buffer. 


Like other Region commands, Uppercase Code in Region (m-X) and Lowercase Code 
in Region (m-X) operate on the region if there is one; otherwise they operate on the 
current definition. 


The Uppercase commands put into uppercase all code in the associated area. They 
have the same effect as retyping that code using Electric Shift Lock Mode. 


The Lowercase commands put into lowercase all code in the associated area. They 
have the same effect as retyping that code without using Electric Shift Lock Mode. 


6.2.8 New canonical file type: :mss 


The canonical file type :mss has been added for Scribe manuscript files. The editor 
treats these files like files of canonical type :text. 


6.3 Improvements to Zmacs in Release 5.0 


6.3.1 Default File Name Changed for Commands in Dired Buffer 


In Dired, if you execute an editor command that accepts a file name as an 
argument, the default is the file name that appears on the line of the Dired buffer 
containing point. 


This change makes it easier to operate on the file selected in Dired. For example, 
moving point to some line in Dired and doing Source Compare (m-x) causes the 
Source Compare command (m-x) to default to that file name. 


6.3.2 Major-mode-setting Commands Now Query About Updating File Attribute List 


Major-mode-setting commands such as Lisp Mode (m-x) now give the standard query 
about updating the file attribute list: "Set it for the file and attribute list, too?" 
(This is like the query for Set Package (m-x) and other attribute-setting commands.) 


Programmers who call the zwei:com-mode-mode function directly (to get their own 
newly created buffer into the correct mode, for example) should bind 
zwei:*set-attribute-updates-list* to nil around the call to suppress the query. 
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6.3.3 _Change in Zmacs command Modified Two Windows (c-X 4) 


When two windows are being displayed, invoking the Zmacs command Modified Two 
Windows by typing c-x 4 J r is equivalent to invoking the Jump to Saved Position 
(c-X J r) command in the other window. When only one window is displayed, 
Zmacs goes into two-window mode, with the current buffer in one of the windows, 
and then jumps to the saved position in the other window. . 


6.3.4 Internal changes to macros zwei:defmajor and zwei:defminor 


The Major and Minor mode system in the editor has been reimplemented using 
Flavors. For simple applications, the changes that were made are compatible with 
Release 4. 
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7. Changes to Zmail in Release 5.0 


7.1 Incompatible Changes to Zmail in Release 5.0 


7.1.1 Zmail Init File Pathnames Standardized 


The names of Zmail init files have been standardized, and init files are now of 
canonical type :lisp for source files and :bin and :qbin for compiled files. You must 
change the name of your init file for Release 5.0. 


For hosts that support long file names, the standard Zmail init file name is ZMAIL- 
INIT. Hosts that do not support long file names have conventions peculiar to each 
system. 


Following are the names of Zmail init source files on some hosts: 


Host system File name 

LMFS/TOPS-20 ZMAIL-INIT.LISP 

UNIX zmail-init.! 

VMS ZMAILINI.LSP 

ITS _ If user has own directory: ZMAIL >. If user does not have own 


directory: USER ZMAIL. 


7.1.2 Babyl files with summary-window-format other than t or nil need to be edited 


Any Baby! files with a Babyl file option of summary-window-format other than t 
or nil must be edited. Previously, Baby] file options were written in the user 
package, which was also where keywords resided. Now that the keyword package 
is separate from user, other keyword values (such as :subject and :calendar) 
require a colon prefix. — 


7.1.3 Ramifications of Host Colon Change for Babyi Files 


The line MAIL: HOST:<USER>MESSAGE.TXT;1, which older versions of Zmail 
might have put in a Baby] file, doesn’t work anymore, because it is parsed with 
HOST: interpreted as a device. 


You can edit this using Zmail Babyl file options. 


The essence of the new scheme is that Babyl files pointing to hosts other than that 
on which they reside can reside only on Lisp Machines or ITS’s, for those are the 
only systems that natively support HOST: as designating hosts. 
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7.2 New Features in Zmail in Release 5.0 


7.2.1. Sorting by Conversations Available 


Sorting by conversations is available from the [Sort] command. Use [Sort (R)] to get 
a menu, then click on [Conversations]. As a result, messages that reference one 
another within the current sequence are grouped together. 


7.2.2 New [map Over] Menu Item: [reply] 


[Reply] is a new item in the menu that results from [Map Over (R)]. Clicking on 
this item replies to all messages in the sequence. A line identifying each message is 
inserted into the reply’s In-reply-to field. When composing the reply, yanking (using 
c-m-Y) yanks all messages into the reply. 


7.2.3 New [map Over] Menu Item: [select Conversation] 


[Select Conversation] is a new item in the menu that results from [Map Over (R)]. 
You can also perform this operation by Select All Conversations By References (m-x); 
this is implemented by zwei:com-zmail-select-all-conversations-by-references. 


[Map Over / Select Conversation] (or its extended command counterpart) selects 
messages that a message in the sequence refers to, or that refer to a message in the 
‘sequence, recursively. It is equivalent to appending together all sequences that 
result from Select Conversation By References (m-x) for each message in the current 
sequence. An argument gives a menu of universes to search. The universe defaults 
to loaded files. 


7.3 Improvements to Zmail in Release 5.0 


7.3.1 Previously undocumented commands: Delete Conversation By References 
(m-x), Append Conversation By References (m-x) 


Delete Conversation By References (m-x) deletes messages that this message refers 
to, or that refer to this message, recursively. With an argument, it provides a menu 
of universes to search. The universe defaults to loaded files. 


Append Conversation By References (m-x) appends messages that this message refers 
to, or that refer to this message, recursively. With an argument, it provides a menu 
of universes to search. The universe defaults to loaded files. 


7.3.2 Rfc822 Domain Addressing Supported 


Zmail now understands and, when appropriate, generates RFC822 domain 
addressing, used by the Arpanet. 
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Zmail now recognizes Resent (-to, -by, -date, -comments) header fields in addition to 
Redistributed (-to, -by, -date, -comments) fields. 
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8. Changes to the FEP in Release 5.0 


This chapter describes changes to the FEP software that are concurrent with 
Release 5.0. FEP software is distributed in its own versions, which are separate 
from Lisp software releases. Release 5.0 requires FEP version 17 or higher. This 
chapter describes changes to FEP versions 14 through 17 for which Lisp support 
exists in Release 5.0. It also describes one change for FEP version 18 for which Lisp 
support does not exist in Release 5.0. Unless otherwise indicated, each change in 
any FEP version applies to later versions as well. 


8.1 FEP Version 14: New Features 


8.1.1 FEP Supports Hdlic Serial /O 


FEP version 14 contains support for synchronous serial I/O using HDLC-like 
bitstuffing protocols. HDLC serial I/O is available only in Release 5.0 and later 
releases. See the section "Hdle Serial I/O on the 3600". 


8.2 FEP Version 15: Incompatible Changes 


8.2.1 h-c-upper-left stops execution of Lisp 


As of FEP version 15, if you cannot obtain a Lisp Listener window or if no Lisp 
Listener is responding to keyboard input, you must press h-c-upper-left instead of 
c-upper-left to get to the FEP from Lisp. In earlier FEP versions, either 
c-upper-left or h-c-upper-left gets to the FEP from Lisp. (upper-left is the key in 
the upper left corner of the keyboard. It corresponds to LOCAL on old keyboards and 
FUNCTION on new keyboards.) 

However, calling sizhalt is a better way to stop Lisp than pressing h-c-upper-left 
because h-c-upper-left could interrupt disk I/O operations. This can render 
directories unusable, making all the files in the directories inaccessible until Symbolics 
personnel recover them. | 


See the section "Summary of Boot and Halt Operations". 


8.2.2 si:halt replaces sys:%halt 


On the 3600, si:halt, not sys:Zhalt, is now the preferred way to stop execution of 
Lisp. 


si:halt Function 
On the 3600, si:halt stops execution of Lisp and gives control to the FEP. 
This function stops Lisp without the danger of interrupting disk I/O 
operations. The function sys:%halt should no longer be used. 
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Interrupting a disk write can cause a fatal ECC error later, because the 
contents of the disk block are incomplete. This can render directories and 
other files inaccessible. This is a particular problem when halting the 
machine while using LMFS. 


8.2.3 »Configuration.fep Files Are Now Called »Boot.boot 


As of FEP version 15, you should rename >Configuration.fep files to >Boot.boot. The 
file type .fep is now reserved for files that the user should. never modify. 


8.2.4 New Defaults for FEP Commands 


In FEP version 15, the default file name for each of the FEP commands Boot, Show 
File, Load Microcode, Load World, and Load Sync-Program is the last file name typed 
to that command. 


The initial default for both the Boot command and the Show File command is now 
>Boot.boot, not >Configuration.fep. Show File uses and sets the same default string 
that Boot does. This lets you use Show File to look for an appropriate configuration 
file and then simply type Boot to cold boot using that file. 


The Boot command and Show File command share the default, so that 
Show File >magic.boot 
causes Boot’s default now to be >magic.boot and vice versa. 


When the machine is powered up or the FEP is reset, the defaults are initialized as 
follows: 


Boot/Show File >Boot.boot 

Load Microcode >Microcodel.mic — 
Load World >World1.load 
Load Sync-Program >Sync.syne 


8.2.5 Disk Format Command Asks Different Question 


When you type the Disk Format command, you are asked a series of questions. One 
of the questions used to be "To cylinder", which expected an exclusive upper bound 
as the answer. As of FEP version 15, Disk Format asks "Through aa 
expecting an inclusive upper bound as the answer. 
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8.3 FEP Version 15: New Features 


8.3.1 Loading Sync Programs 


As of FEP version 15, files of type .syne contain sync programs for the monitor. A 
new FEP command, Load Sync-Program file-name, loads the specified file (of type 
Sync) into the sync program memory of the I/O board and causes the screen to 
clear. This is used for machines with monitors that require different sync programs 
than the one that is preprogrammed into the FEP. 


8.4 FEP Version 15: Improvements 


8.4.1 Show Configuration Command Displays More information 


Show Configuration has changed considerably in FEP version 15. It still displays the 
hardware configuration, but in considerably more detail, telling you part numbers, 
serial numbers, revisions, manufacture dates and other information peculiar to 
various parts of the machine (for example, the Ethernet address on the I/O paddle 
card). : 


Here is an example of what Show Configuration displays: 


NanoFEP (P.N. 170018) S.N. 311, manufactured on 83-8-11 
Machine serial number 0. 
Manufactured as rev 1, functions as rev 1, ECO level 0 

Datapath (P.N. 170032) S.N. 1192, manufactured on 83-9-9 
Manufactured as rev 3, functions as rev 3, ECO level 0 

Sequencer (P.N. 170042) S.N. 186, manufactured on 83-4-1 
Manufactured as rev 4, functions as rev 4, ECO level 0 

Memory Control (P.N. 170052) S.N. 1200, manufactured on 83-9-16 
Manufactured as rev 5, functions as rev 5, ECO level 0 

Front End (P.N. 170062) S.N. 2040, manufactured on 83-8-19 
Manufactured as rev 5, functions as rev 5, ECO level 0 

512K Memory (P.N. 170002) S.N. 515, manufactured on 83-9-20 
Manufactured as rev 2, functions as rev 2, ECO level 0 
LBUS slot 0 (octal base address 0) 

512K Memory (P.N. 170002) S.N. 589, manufactured on 83-10-14 
Manufactured as rev 2, functions as rev 2, ECO level 0 
LBUS slot 1 (octal base address 2000000) 

IO (P.N. 170082) S.N. 176, manufactured on 83-3-25 
Manufactured as rev 2, functions as rev 2, ECO level 0 
LBUS slot 8 (octal base address 20000000) 

FEP Paddle Card (P.N. 170066) S.N. 287, manufactured on 83-7-16 
Manufactured as rev 1, functions as rev 1, ECO level 0 

IO Paddle Card (P.N. 170086) S.N. 358, manufactured on 83-9-20 
Ethernet address: 08-00-05-01-30-08 
Manufactured as rev 1, functions as rev 1, ECO level 0 
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8.4.2 Memory Board Not Needed in Lbus Slot 0 


As of FEP version 15 and Release 5.0, it is possible to run Lisp and use the FEP 
commands Disk Format and Disk Restore without a memory board in LBUS slot 0. 
You must be running microcode version 238 or higher. This change allows for a 32- 
bit color display. 


8.5 FEP Version 16: New Features 


8.5.1 New FEP Commands: Add Disk-type and Clear Disk-types 
FEP version 16 contains the new commands Add Disk-type and Clear Disk-types. 


Add Disk-type lets you declare an arbitrary disk type to the FEP. You can declare 
up to four disk types before you have to give the Clear Disk-types command. Add 
Disk-Type is needed only to format and restore disks. It is not needed for normal 
operation of any validly formatted disk with a FEP file system. 


Add Disk-type has the following arguments, for which it prompts with the argument 
names in parentheses: 


name The textual name by which this disk type is known 
cylinders The number of cylinders supported by the drive 
heads The number of heads on the drive 

sectors The number of sectors 

gapl The length of "gap1" 

gap2 The length of "gap2” 

gap3 The length of "gap3" 

fast 0 for slower disks, 1 for faster disks 


These numbers require careful computation and involve some restrictions of the 3600 
hardware. The calculation should be done by Symbolics personnel. 


Example: 


Add Disk-type (name) M2284 (cylinders) 823 (heads) 10 
(sectors) 16 (gap1) 27 (gap2) 31 (gap3) 52 (fast) 0 


Clear Disk-types clears all disk types declared with the Add Disk-type command. 
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8.6 FEP Version 16: improvements 


8.6.1 Unplugging Lemo Cables Should Not Halt the FEP 


As of FEP Version 16, you should not have to reset the FEP after unplugging the 
lemo cables from either end. If you find that you must still reset the FEP, please 
let us know. 


Sometimes what appears to be a FEP problem when unplugging lemo cables might 
be a console problem. You might have to power cycle the console rather than 
resetting the FEP. 


8.6.2 Continue Command Sends an All-keys-up Character to Lisp 


As of FEP version 16, the Continue command now sends an all-keys-up character to 
Lisp. Thus, if you press h-c-uwpper-left and then type Continue, Lisp gets the all- 
keys-up code and knows that HYPER and CONTROL are up. 


The Return-keyboard-to-lisp command also sends an all-keys-up code. 


8.6.3 More information Available on Causes of Crashes 


In addition to the information it displays in earlier versions, the Show Status 
command in FEP version 16 prints a section called "3600 program counters". This 
section can be useful in diagnosing why your machine crashed. It contains the 
following information: 


Macro PC The address of the current instruction of compiled Lisp code. 
This is prefaced with either (Odd) or (Even) since there are two 
instructions per word. 


Next micro PC (NPC) 
Usually CPC+1, calculated for pipelining. This item is not 
displayed in FEP version 17 and later versions. 


Current micro PC (CPC) 
The address of the current microinstruction. 


Old PCs (OPC) The addresses of the 16 most recently executed microinstructions. 
OPC+0 was executed most recently, OPC+17 least recently. 


Use the function dbg:decode-micro-pe to decode the microcode PCs printed by the 
FEP command Show Status. 


dbg:decode-micro-pe pc &optional (name sys:%microcode-version) Function 
(version 
(sys:microcode-version-number sys:%microcode-version)) 
(3600 only) dbg:decode-micro-pc is useful for investigating why a machine 
crashed. It decodes the octal microinstruction addresses printed by the FEP 
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command Show Status. To use this function you should first write down the 
Show Status output. You can then either warm boot the machine using the 
Start command or call dbg:decode-micro-pe on another machine. 


pe is an address in the microcode, taken from the CPC or OPC information 
printed by the Show Status command. Show Status prints these numbers in 
octal; if your default radix is decimal, precede pc by #0. Normally the 
number in the Show Status output with the arrow (+) pointing to it is the 
relevant number, but it can sometimes be useful to try decoding all of the 
numbers to get additional clues. 


name and version are optional; they specify the version of the microcode that 
was running at the time of the crash. You can omit these arguments if you 
call dbg:decode-micro-pe while using the machine that crashed and while 
running the same microcode version as at the time of the crash. You can 
also omit these arguments if you call this function from another machine 
that has a software and hardware configuration that is identical to that of 
the machine that crashed. To find the microcode version name and number 
that a machine is running, use (print-herald :verbose t) or take the name 
and version number of the microcode file in the machine’s boot file (normally 
fep0:>Boot.boot). Microcode version numbers are decimal; include a period at 
the end of the number if your default radix is octal. 


Example: 
(dbg:decode-micro-pc #044552 “tmc5-mic” 253.) 


dbg:decode-micro-pc prints information that depends on the 
microinstruction: 


Microinstruction Information printed 


Halt instruction The reason it halts the machine. An 
example is "error in the error handler". 
These reasons are constant strings in 
the microcode source program and do not 
represent any dynamic analysis of the 
state of the machine. 


Signaller of a Lisp error The internal form of the error message. 
This is not the same form of error 
message you would ever see otherwise; 
normally Lisp software translates these 
messages into conditions and signals 
them, and the conditions define more 
readable error messages. This is useful 
mainly in decoding OPCs earlier than 
the one with the arrow, when the 
machine halted because of “error in the 
error handler". | 
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Handler for a macroinstruction in compiled Lisp code 
The name of that macroinstruction. A 
halt here might be caused by running a 
world together with an incompatible 
microcode, such as a microcode from an 
earlier release, that does not implement 
an instruction used by that world. 


If all else fails, the function offers to load the microcode symbol table (from 
the sys:l-ucode; directory) and then prints the symbolic name of the 
microinstruction. Loading the microcode symbol table takes a few minutes. 
Microinstruction symbolic names can sometimes be clues to help in figuring 
out what the machine was doing at the time it crashed. 


Two types of symbolic names exist: those with and without parentheses. 


If the name includes parentheses, it is a list of the name of a microcode 
routine and the path through that routine to reach the microinstruction in 
question. Beware of a pitfall! These names are not unique; the same 
microinstruction can be reached by multiple paths from different microcode 
routines. For example, a microinstruction named (FTN-AR-1 3) might also be 
part of the microcode for the CAR instruction; you cannot assume too much 
from the name if it contains parentheses. It is only a clue. 


If a symbolic name is just a symbol and has no parentheses, it is unique and 
names the first microinstruction of a microcode routine. 


Beware of assuming too much. If the reason Lisp stopped itself is not 
"microcode halted", the information that dbg:decode-micro-pc prints is not 
likely to be helpful, though it might be useful to people who understand the 
hardware. 


To decode the macrocode PC printed by the FEP command Show Status, warm boot 
or go to another machine running identical software and call the function 
%find-structure-header on the number printed by the FEP. This is an octal 
number; use #o if necessary. It should return a compiled-function object, which is 
the function that was executing at the time. To find the exact place in the function 
that was executing, note the different between the number printed by the FEP and 
the address in the printed representation of the compiled-function object. You can 
use %pointer-difference to compute this difference. Multiply this by 2, and add 1 
if the FEP said the PC was odd (not even). The result is the instruction number of 
the current instruction; disassemble the compiled function to see it. 


Example: 
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Fep>Show status 


3600 program counters: 
Macro PC/ (Odd) 1244531 


Fep>Start 
(%find-structure-header #01244531) 
#<DTP-COMPILED-FUNCTION EQUAL 1244530> 
(%pointer-difference #01244531 *) 
1 
(1+ (* x 2)) 
3 
(disassemble *xx) 
0 ENTRY: 2 REQUIRED, 0 OPTIONAL 
1 PUSH-LOCAL FP[0 3A 


2 PUSH-LOCAL FP]1 3B 
3 BUILTIN EQL STACK 


Instruction 3 (EQL) is the one that halted. 


8.7 FEP Version 17: improvements 


8.7.1 Show Status Command Displays More Useful Information 
As of FEP version 17, the Show Status command prints more useful information. 


The "Sequencer status line", which was confusing and difficult to interpret, has been 
split into two lines, "Sequencer error status" and “Sequencer miscellaneous status". 
The former contains only conditions that can stop the machine; it no longer contains 
reported errors that are not in fact errors. The miscellaneous status line contains 
the sequencer status bits that may be of occasional interest but are not reasons the 
machine stopped. For the names of the status bits printed in these two lines: See 
the section "FEP Show Status Command Output". 


The confusing and uninformative "MC status" line has been removed. 


8.8 FEP Version 18: Improvements 


8.8.1 h-c-upper-left waits for Lisp to stop itself 


With FEP version 18 and a future release, pressing h-c-upper-left does not 
immediately stop Lisp. Instead, the FEP asks Lisp to stop itself cleanly. If Lisp 
does stop itself, the FEP prints the message "Lisp stopped itself." If Lisp does not 
stop itself after about three seconds, the FEP prints, "Waiting for Lisp to stop 
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itself..." If after another three seconds Lisp does not stop itself, the FEP forcibly 
stops Lisp and prints, "Halting execution of Lisp." 


The Lisp support for this change is not installed in Release 5.0. This means that if 
you have FEP version 18 and Release 5.0, Lisp never stops itself after you press 
h-c-upper-left. The FEP waits three seconds, prints "Waiting for Lisp to stop 
itself...", waits another three seconds, then forcibly stops Lisp and prints, "Halting 
execution of Lisp." 


The purpose of this change is to reduce the chance of halting the 3600 during a disk 
write, which might cause ECC errors. Although the Lisp support for the change is 
not in Release 5.0, the FEP’s delay of about six seconds before halting Lisp reduces 
(but does not eliminate) the risk of stopping Lisp at a dangerous time. The 
preferred way of stopping Lisp is still to call sishalt; use h-c-upper-left only if no 
Lisp Listener is responding. 
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9. Release 5.0: Notes and Clarifications 


9.1 Clarifications and Corrections for Release 5.0 


9.1.1 What happens when you cold boot 


Because of the new network system, the procedure the Lisp Machine follows when 
cold booting has changed. While this does not normally require a different response 
from you, the process states in the status line are visibly different. This section 
briefly describes what the machine is doing. For background information: See the 
section "Network Database". See the section "The Lisp Machine Generic Network 
System". | 


The Lisp Machine first needs to determine the current time. Previously, the site file 
contained a list of hosts on the local network that were time servers. That list no 
longer exists. Instead, the machine issues a Chaosnet broadcast request (BRD) for 
the time. While the machine is waiting for the network, the status line displays a 
process state of "BRD Wait". Any host on the local network can answer this 
request. This means that in normal operation, if your site has more than one Lisp 
Machine, it is not necessary to enter the time by hand. However, if no host 
responds after a short time, the machine asks you to enter the time manually. 


Special world loads for distribution no longer exist. A world load produced at one 
site can be loaded onto a machine at another site and automatically reconfigures 
itself for the new site. To do this, the machine must find out when booted whether 
the site has changed. It does this by asking the other machines on the local 
network, using a Chaosnet broadcast request. The status line again displays a 
process state of "BRD Wait". If the site has changed, or if no one answers this 
"Who am I?" query, the machine might ask you whether the site has changed. For 
information on what to do in this case: See the document Software Installation 
Guide. 


Information in the network namespace database is cached in a world load and 
timestamped. However, namespace information might have changed since the world 
load was made. To find out about these changes, the machine connects to the 
namespace server machine. The status line now displays a process state of "Connect 
host". The machine tells the server the timestamp it previously knew for the local 
namespace. If the world load was saved recently, nothing has changed and the 
server responds immediately that the timestamp is still current. If some objects in 
the namespace have changed, the server provides the new timestamp for the local 
namespace and the names of the changed objects. 


Your machine marks as valid any object that the server does not say has changed. 
The old information on the objects that did change still has the old timestamp. 
When the system needs to access that information, it discovers that the timestamp 
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no longer matches the timestamp of the local namespace. It then asks the 
namespace server for the information associated with the current timestamp. While 
the machine checks the names of old objects, the status line displays a process state 
of "Net In". For information on the protocol used for this incremental update: See 
the section "Network Database". 


Your machine gets most of the lists of hosts and other network namespace objects 
that were formerly stored explicitly in the site file by doing a pattern-matching 
lookup using net:find-objects-from-property-list. This information includes, for 
example, the set of hosts at the local site that can provide store and forward mail 
service, the set of hardcopy printers at the local site, and the hosts that can spool 
files to a specific local hardcopy printer. The lists of objects resulting from these 
lookups are cached in a world load. If the machine does not have a cached list 
matching the result of a given property list query, or if the incremental update while 
booting reveals that the cached list is old, the system connects to the namespace 
server to get the latest list when it is needed. 


To avoid the inconvenience of this connection the first time you need to send mail or 
hardcopy a file, the machine maintains a list of frequently asked questions. After 
the machine gets the incremental update while booting, a background process called 
Get Common Property Lists starts. It connects to the namespace server and caches 
the latest version of these commonly used sets of objects. If the world load is 
relatively new, this process runs for only a few seconds. The process runs at a lower 
priority than the Lisp Listener process to avoid interfering with your work. 


Booting takes longer with an old world load than a new one because many aspects of 
the network database have changed. If you have an old world load and find that it 
takes a long time to boot or that it pages for a long time after booting (while 
running the Get Common Property Lists process), you might disk-save the world to 
make a new world load. The new world load caches information with the new 
namespace timestamp and therefore does not take so long to boot. 


A world load that comes from another site takes longer to boot for the same reason: 
It has no cached information about the local namespace. This is why the 
installation procedure for new world loads includes booting and disk-saving them. 


9.1.2 sort predicate should return nil for equal elements 


The predicate for sort should return nil if its arguments are equal. For example, to 
sort in the opposite direction from <, use >, not >. This is because the quicksort 
algorithm used to sort arrays and cdr-coded lists becomes very much slower when 
the predicate returns non-nil for equal elements while sorting many of them. 


See the function sort. 
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9.1.3 store not supported on the 3600 


store is not supported on the 3600. store existed only for some large programs 
written in Maclisp, most of which now use more recent array referencing. store 
would require the saving of state in processes, which would slow down all processes. 
Use aref and aset (or setf) instead. 


See the section "Change in Array Referencing". 


9.1.4 Using copy-array-portion on the same array 


It is safe to use copy-array-portion to copy from and to the same array only when 
the from-index is not less than the to-index, or when the "from" and "to" portions of 
the array do not overlap. 


See the function copy-array-portion. 


9.1.5 bitbit width from the destination array 


The width argument to bitblt is in units of elements of the destination array. This 
is important if the source and destination arrays are of different types. 


See the function bitblt. 


9.1.6 Inspecting hash arrays of eq hash tables not permitted 


You cannot inspect the hash array of an eq hash table. Trying to do so is likely to 
signal an error. 


9.1.7 Known problem: char-upcase and char-downcase undefined for modified 
characters 


char-upcase and char-downcase preserve font information. Because font 
information and control characters use the same character bits, the results of 
char-upcase and char-downcase are undefined for characters with modifier bits 
(CONTROL, META, SUPER, and HYPER). 


See the function char-upcase. See the function char-downcase. 


9.1.8 How to use the sys:function-parent declaration 


The Release 4.0 Release Notes documented the use of the sys:function-parent 
declaration when a definition results from the macro expansion of a source definition. 
Following is a more comprehensive explanation: 


A definition is a Lisp expression that appears in a source program file and has a 
name by which a user would like to refer to it. Definitions come in a variety of 
types. The main point of definition types is that two definitions with the same 
name and different types can exist simultaneously, but two definitions with the same 
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name and the same type redefine each other when evaluated. Some examples of 
definition type symbols and special forms that define such definitions are: 


Type symbol Type name in English Special form names 

defun function defun, defmacro, defmethod 
defvar variable defvar, defconst, defconstant 
defflavor flavor defflavor . 
defstruct structure. defstruct 


Things to note: More than one special form can define a given kind of definition. 
The name of the most representative special form is typically chosen as the type 
symbol. This symbol typically has a si:definition-type-name property of a string 
that acts as a prettier form of the name for people to read. 
record-source-file-name and related functions take a name and a type symbol as 
arguments. The editor understands certain definition-making special forms, and 
knows how to parse them to get out the name and the type. This mechanism has 
not yet been made user-extensible. Currently the editor assumes that any top-level 
form it does not know about that starts with "(def" must be defining a function (a 
definition of type defun) and assumes that the cadr of that form is the name of the 
function. Heuristics appropriate for defun are applied to this name if it is a list. In 
general, a definition whose name is not a symbol and whose type is not defun does 
not work properly. This will be fixed in a future release. 


The declaration sys:function-parent is of interest to users. The function with the 
same name is probably not of interest to users; it is part of the mechanism by which 
the Zmacs command Edit Definition (m-.) figures out what file to look in. 


Example: 


We have functions called "frobulators" that are stored on the property list of symbols 
and require some special bindings wrapped around their bodies. Frobulator 
definitions are not considered function definitions, because the name of the 
frobulator does not become defined as a Lisp function. Indeed, we could have a 
frobulator named list and Lisp’s list function would continue to work. Instead we 
make a new definition type. . 


(defmacro define-frobulator (name arg-list &body body) 

*(progn "compile . 
(add-to-1list-of-known-frobulators ”,name) 
(record-source-file-name ’,name ’define-frobulator) 
(defun (:property ,name frobulator) (self ,@arg-list) 

(declare (sys:function-parent ,name define-frobulator ) ) 
(let (,(make-frobulator-bindings name arg-list)) 
,@body)))) 


(defprop def ine-frobulator "Frobulator” si:definition-type-name) 


Here we would tell the editor how to parse define-frobulator if its parser were 
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user-extensible. Because it is not, we rely on its heuristics to make m-. work 
adequately for frobulators. 


Next we define a frobulator. This is not an interesting definition, for we do not 
actually know what the word "frobulate" means. We could always recast this 
example as a symbolic differentiator: We would define the + frobulator to return a 
list of + and the frobulations of the arguments, the * frobulator to return sums of 
products of factors and derivatives of factors, and so forth. 


(define-frobulator list () 
(frobulate-any-number-of-args self) ) 


In define-frobulator, we call record-source-file-name so that when a file 
containing frobulator definitions is loaded, we will know what file those definitions 
came from. Inside the function that is generated, we include a function-parent 
declaration because no definition of that function is apparent in any source file. The 
system will take care of doing 

(record-source-file-name ’(:property list frobulator) ’defun), as it always does 
when a function definition is loaded. Suppose an error occurs in a frobulator 
function — in the list example above, we might try to call 
frobulate-any-number-of-args, which is not defined — and we use the Debugger 
c-E command to edit the source. This will be trying to edit 

(:property list frobulator), the function in which we were executing. The 
definition that defines this function does not have that name; rather, it is named 
list and has type define-frobulator. The sys:function-parent declaration enables 
the editor to know that fact. 


If your definition-making special form and your definition type symbol do not have 
the same name, you should define the special form’s zwei:definition-function-spec 
property to be the definition type symbol. This helps the editor parse such special 
forms. 


For another example, more complicated but real, use mexp or the Zmacs command 
Macro Expand Expression (c-sh-M) to look at the macro expansion of: 


(defstruct (foo :conc-name) one two) 


The macro sys:defsubst-with-parent that it calls is just defsubst with a 
sys:function-parent declaration inside. It exists only because of a bug in an old 
implementation of defsubst that made doing it the straightforward way not work. 


9.1.9 Use record-source-file-name instead of (remprop symbol ’:source-file-name) 


When redefining functions, some users try to avoid redefinition warnings and queries 
by using the form (remprop symbol ’:source-file-name). The preferred way to do 
this is to use the form (record-source-file-name function-spec ’defun t). The 
former method causes the system to forget both the original definition and other 
definitions for the same symbol (as a variable, flavor, structure, and so forth). 
record-source-file-name lets the system know that the function is defined in two 
places, and it avoids redefinition warnings and queries. 
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Of course, if you are redefining something other than a function, use the appropriate 
definition type symbol instead of defun as the second argument to 
record-source-file-name. For example, if you are redefining a flavor, use 
defflavor as the second argument. 


9.1.10 Use cdr with locatives returned by locf 


When using locf to return a locative, you should use cdr rather than car to access 
the contents of the cell to which the locative points. This is because 
(locf (cdr list)) returns the list itself instead of a locative. 


Example: 
(car (locf (cdr ’(ab)))) >> a ;wrong 
(cdr (locf (cdr ’(a b)))) => (b) sright 


9.1.11 rplaca can be used with stack lists 


The Release 4.0 Release Notes, section 2.2.30, page 43, stated that rplaca could not 
be used on stack lists. This is incorrect; you can use rplaca with stack lists, but 
not rplacd. 


See the special form with-stack-list. See the special form with-stack-list*. 


9.1.12 FUNCTION 2 W displays current process name in status line 


Typing FUNCTION 2 W changes the status line so that it displays the name of the 
process instead of displaying the name of the user. This also freezes the status line 
on that process; normally the status line switches to displaying a different process 
whenever the window selection mechanism tells it to. 


If you see an unexpected state in the status line, you can use FUNCTION 2 W to find 
out what process is in that state (it might be that you are not talking to the process 
you think you should be.) . 


FUNCTION 1 W returns the status line to normal. 


9.1.13 Known problem with si:gc-reclaim-immediately 


The 3600 has a known bug in the garbage collector stimulated by turning on 
si:gc-reclaim-immediately. The typical manifestation is the following error 
message: 
>>Trap: The first argument given to SYS: INTERNAL-=, NIL, was not a number. 
While in the function SI:SCAVENGE-REGION « SI:%GC-SCAVENGE « SI:SCAVENGE-ALL 


This bug will be fixed in a future release. In the meantime, avoid setting 
si:ge-reclaim-immediately to anything other than nil. You might be able to set 
si:gc-reclaim-immediately to t if you also set inhibit-idle-scavenging-flag to t. 
You must set inhibit-idle-scavenging-flag after calling gc-on and must reset it 
after warm booting. 
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9.1.14 tv:set-default-font not supported 


The undocumented function tv:set-default-font is not supported and should not be 
used. The purpose of this function is to change the default font used by the system 
from fonts:cptfont to something else. However, this change requires changes in 
window geometry, and many programs are not prepared to handle the new 
geometry. Calling tv:set-default-font is likely to break these programs. This 
problem will be addressed in a future release. 


9.1.15 Avoid Errors in the Mouse Process 


It is not a good idea to perform lengthy or error-prone calculations in the mouse 
process. An error in the mouse process might make it necessary to reset that 
process. If you have a complex calculation to perform in a :mouse-click method, 
use process-run-function to spin off a new process for the calculation, or send a 
blip to the window’s process and perform the calculation there. 


9.1.16 nil not a valid menu item 


nil is not a valid menu item. If an item list contains nil, it is removed from the 
list. A menu with no choices at all appears as a small blank menu. 


You might be tempted to specify nil as a menu item in a form like 
(tv:menu-choose ’(t nil)). But this causes a menu with only one choice, t, to 
appear. Instead, you should specify a form like 

(tv:menu-choose ’(("Yes” . t) ("No" . nil))). This presents a menu with two 
choices: "Yes", which returns t, and "No", which returns nil. You could also specify 
(tv:menu-choose ’(("T" . t) ("NIL” . nil))). See the document Window System 
Choice Facilities. 
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10. Release 5.0: Operations and Site Management 


10.1 Notes on Operations in Release 5.0 


10.1.1 Backup Tape Reliability 


To ensure the reliability of backup tapes, it is important to use cartridge tapes of 
adequate density and to compare the contents of backup tapes with the contents of 
the original files. 


Cartridge tape used on the 3600 should be certified at a minimum of 10000 BPI. 
Some customers have been using lower density tapes and producing unreliable 
backups. You can order tapes through your local Symbolics sales office. 


It is important to keep the tape heads clean when reading and writing tapes. The 
heads should be cleaned after every two hours of new cartridge tape use and after 
every 8 hours of old tape use. "Old tape" is tape that has been written or read 
more than two hours. Inmac offers a cleaning kit called the "Clean Cycle Kit, 
Quarter Inch Cartridge Head Cleaner", P/N 7148. The Inmac telephone number is 
(408) 727-1970. 


After writing a backup, press SELECT F, click left on [Reload/Retrieve], and click left 
on the "Compare" operation in the choose-variable-values window. The "Compare" 
operation provides a bit-by-bit comparison of the backup tape to the original file. If 
it reveals discrepancies, you should take a consolidated dump. A consolidated dump 
dumps all files saved after a specified date. To take a consolidated dump: Click left 
on [Complete Dump], click left on the "Consolidated" dump type in the choose- 
variable-values window, and specify the date in the "Consolidate from" field to be the 
date of your last successful dump. 


See the section "Reloading and Retrieving”. 


10.1.2 Site Configuration for Dialnet 


This is the basic information on how to configure your site for Dialnet. It allows 
the generic network system access to the Vadic autodialer. 


Configuring a site: 

You should define a network named "DIAL" of type DIAL. This network represents 
the international dial network. Addresses on this network are the telephone 
numbers, relative to your site, of the host in question. This means that they should 


contain any prefixes or area codes that are necessary to dial that number. Add 
addresses on this network to any hosts you wish to access via telephone. 


You must also define what services each host supports. The basic system supports 
only the LOGIN service. Add the service triple "LOGIN DIAL TTY-LOGIN" to any 
hosts which support login over dialup lines. 
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To allow a 3600 or LM-2 to use an autodialing modem with the general network 
system you must describe its connection with a PERIPHERAL option. For each 
autodial modem add a peripheral entry of type MODEM which specifies the modem 
model and the serial port to which it is connected. For example: 


. MODEM MODEL VA3451 UNIT 3 
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#/i and #\ now identical 19 
Previously undocumented reader macro: # and # 83 


Use record-source-file-name instead of (remprop symbo/ 
*ssource-file-name) 147 


*& * * 
** accordion wildcard specification 120 


Aep file type 134 


IBINARY 109 
IVAR_ 109 


0 0 0 


Memory Board Not Needed in Lbus Slot 0 136 
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FEP Version 14: New Features 133 
FEP Version 15: Improvements 135 
FEP Version 15: Incompatible Changes 133 
FEP Version 15: New Features 135 
FEP Version 16: Improvements 137 
FEP Version 16: New Features 136 
FEP Version 17: Improvements 140 
FEP Version 18: Improvements 140 
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FUNCTION 2 W displays current process name in status 
; line 148 
New Microcode in Release 5.0: 270 on 3600, 998 on LM-2 3 


Hdlc Serial I/O on the 3600 110 
New Metering Tools for the 3600 50 
store not supported on the 3600 145 
New option for si:sb-on: :mouse (3600 only) 95 
Multidimensional Arrays on the 3600 Remember Actual Dimensions 78 
3600 select-methods handle :operation-handled-p > 
and :send-if-handies 81 
3600 Supports leee Single- and Double-precision 
Floating Point 48 ; 
New Microcode in Release 5.0: 270 on 3600, 998 on LM-2 3 


4 4 4 
Change in Zmacs command Modified Two Windows (c-X 
4) 127 
Modified Two Windows (c~X 4) Zmacs command 127 


5 5 5 
Changes to Networks in Release 5.0 107 
Changes to the FEP in Release 5.0 133 
Changes to the File System in Release 5.0 119 
Changes to the Lisp Language and Compiler in Release 
5.0 5 
Changes to Utilities in Release 5.0 113 
Changes to Zmacs in Release 5.0 123 
Changes to Zmail in Release 5.0 129 
Clarifications and Corrections for Release 5.0 143 
Improvements to Lisp in Release 5.0 77 
Improvements to Utilities in Release 5.0 116 
Improvements to Zmacs in Release 5.0 126 
Improvements to Zmail in Release 5.0 130 
Incompatible Changes to Lisp in Release 5.0 5 
Incompatible Changes to Networks in Release 5.0 107 
Incompatible Changes to the File System in Release 5.0 119 
Incompatible Changes to Utilities in Release 5.0 113 
Incompatible Changes to Zmacs in Release 5.0 123 
Incompatible Changes to Zmail in Release 5.0 129 
New Features in Lisp in Release 5.0 44 
New Features in Networks in Release 5.0 108 
New Features in the File System in Release 5.0 120 
New Features in Utilities in Release 5.0 114 
New Features in Zmacs in Release 5.0 124 
New Features in Zmail in Release 5.0 130 
Notes on Operations in Release 5.0 151 
New Microcode in Release 5.0: 270 on 3600, 998 on LM-2 3 
Release 5.0: Introduction and Highlights 1 
Release 5.0: Notes and Clarifications 143 
Release 5.0: Operations and Site Management 151 
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New Microcode in Release 5.0: 270 on 3600, 998 on LM-2 3 


< oldest version specifier 35 


> > > 
> newest version specifier 35 
)Configuration.fep Files Are Now Called >Boot.boot 134 
»Boot.boot files 134 
>Configuration.fep files 134 
>Configuration.fep Files Are Now Called 
»Boot.boot 134 


A A A 
NETWORK Acommand 114 
Compiler now wars _ about implicit progns in loops 82 
Major-mode-setting Commands Now Query About Updating File Attribute List 126 
Absolute goto 21 
Reader Accepts Common Lisp Floating Point Exponents 17 
** accordion wildcard specification 120 
Accordion wildcards 1 
LMFS = Accordion Wildcards 120 
LMFS Dumper Supports Accordion Wildcards 119 
Activation character 65 
Activation characters 22, 57 
:activation option 57 
New input editor options: :no-input-save, :activation, :command, :preemptable 57 
Multidimensional Arrays on the 3600 Remember Actual Dimensions 78 
New FEP Commands: Add Disk-type and Clear Disk-types 136 
Add Disk-type FEP command 136 
Changes to Add Patch Changed Definitions (m-X) and Add Patch 
Changed Definitions of Buffer (m-X) 123 
Add Patch Changed Definitions (m-X) Zmacs 
command 123 
Changes to Add Patch Changed Definitions (m-X) and 
Add Patch Changed Definitions of Buffer 
(m-X) 123 
Add Patch Changed Definitions of Buffer (m-X) Zmacs 
command 123 
fs:make-logical-pathname-host replaces fs: add-logical-pathname-host 37 
fs: add-logical-pathname-host function 37 
Previously undocumented functions: tv:add-to-system-menu-programs-column, tv: 
add-to-system-menu-create-menu 103 
tv: add-to-system-menu-create-menu function 104 
tv: add-to-system-menu-programs-column 
function 104 
Previously undocumented functions: tv: add-to-system-menu-programs-column, 
tv:add-to-system-menu-create-menu 103 
; Adding prompt 65 
readline and readiine-trim return additional values 62 
RFC822 domain addressing 130 
Ric822 Domain Addressing Supported 130 


156 


New initialization list: 
:draw-filled-in-circle uses same 
Select 


Compiler Performs Style Checking on 
Continue Command Sends an 
Dealiocating 

Optimizing disk 

si: 


sys:dump-forms-to-file 
New Rules for Reading 
floatp returns t for 


Flavors tv: 
tv: 


Dumper Restarting and 
New function: 


>Configuration.fep Files 
Keyword Symbols 
Meaning of 


New optional 
Optional 


Change in 

New optional 

Second 

New optional 

Hook 

tv:scroli-maintain-list init function can take 


Change in numeric 
Change in 

New optional 

New optional 

New optional 


Change in 
New message to 


sys: 

bitbit width from the destination 

Using copy-array-portion on the same 
Change in type of 

Inspecting hash 

Multidimensional 


Disk Format Command 
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sadjust-screen-array message to sheets 79 

cafter-full-ge 73 

algorithm as :draw-circle 99 

All Conversations By References (m-X) Zmail 
command 130 

All Forms 81 

All-keys-up Character to Lisp 137 

allocated objects of a resource 13 

allocation 25 

alphabetic syntax description 18 

ALTMODE key 116 

always puts package attribute into binary file 82 

Ambiguous Tokens 19 

any floating-point number 49 

sany-tyi method of tv:stream-mixin 41, 42 

any-tyi-mixin and tv:list-tyi-mixin obsolete 40 

any-tyi-mixin flavor 40 

sany-tyi-no-hang method of tv:stream-mixin 41 

Append Conversation By References (m-X) Zmail 
command 130 

sappend value of open option for :if-exists 25 

Append-to-tape Default 121 

applyhook 72 

applyhook function 72 

applyhook variable 72 

Are Now Called >Boot.boot 134 

Are Self-evaluating 13 

argument changed for fs:parse-pathname 32 

Argument to :menu type menu items can be a menu 
oraform 105 

argument to gc-immediately 98 

argument to mapatoms-all and where-is 
eliminated 7 

argument to process-wait-with-timeout 95 

argument to read 61 

argument to si:install-microcode now optional 94 

argument to tv:mouse-wait 101 

arguments 73 

arguments 105 

Arguments changed for fs:user-homedir and 
fs:init-file-pathname 34 

arguments to Copy File (m-X) 124 

arguments to print-herald 39 

arguments to print-notifications 99 

arguments to read-from-string 84 

arguments to string-upcase and 
string-downcase 980 

arguments to unadvise 39 

arithmetic errors: :operands 98 

arithmetic-error flavor 98 

array 145 

array 145 

array retumed by string-append 16 

arrays of eq hash tables not permitted 145 

Arrays on the 3600 Remember Actual 
Dimensions 78 

:as-if-band option for print-herald 39 

Asks Different Question 134 
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Window System Changes 
New Features 


:validate-Imfs-dump-tapes site 
sys:dump-forms-to-file always puts package 
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Associated with Mouse Input 40 

Associated with the Input Editor (Rubout 
Handler) 57 

attribute 121 

attribute into binary file 82 


Major-mode-setting Commands Now Query About Updating File 


Copying file 

Vadic 
chaos:send-unc-pkt 
Sorting by Conversations 
Wildcard Directory Mapping 
More Information 


Select Buffer (c-X 
summary-window-format 
Ramifications of Host Colon Change for 


Comparing 
Ratios read in current ibase and print in current 
Default Font Format Now 


Read rational number in 


Attribute List 126 
attributes 124 
autodialer 151 
automatically returns the packet to the free pool 108 
Available 130 
Available 92 
Available on Causes of Crashes 137 
Avoid Errors in the Mouse Process 149 


B exponent identifier 17 

B) Zmacs command 125 

Baby! file option 129 

Babyl Files 129 

Babyl files with summary-window-format other than 
t or nif need to be edited 129 

Back-translation 35 

Backup Tape Reliability 151 

backup tapes 151 

base 19 

Bid 113 

‘bin canonical type 34 

binary 18 


sys:dump-forms-to-file always puts package attribute into 


Characters with modifier 
si: 
New descriptions: si: 


Receiving 
New special forms: 


Invisible 
Memory 
What happens when you cold 


Recursion in 


Chaosnet sequence 
Clock sequence 
Disk sequence 
Keyboard sequence 


Mouse sequence - 


m-SUSPEND selects frame with 


binary file 82 

Binary left shift 17 

bitbit function 145 

bitbit width from the destination array 145 

bits 145 

bitscale 17 

bitscale, si:digitscale, 
si:non-terminating-macro 17 

Blips 41 

blips 40 

block and tagbody 46 

block special form 46 

blocks in progs and des 78 

Board Not Needed in Lbus Slot O 136 

boot 143 

Boot FEP command 134 

Both default pathnames for Source Compare (m-X) 
now use :newest version 123 

Bound and Default Handlers Eliminated 97 

Bound handlers 97 

break 95 

break 95 

break 95 

break 95 

break 95 

Break loops 116 

break read function for Debugger 116 


158 


si: 

Change case of 

Default File Name Changed for Commands in Dired 
Select Previous 

Select 
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break syntax description 18 

buffer 125 

Buffer 126 

Buffer (c-m-L) Zmacs command 125 
Buffer (c-X B) Zmacs command 125 


Changes to Add Patch Changed Definitions (m-X) and Add Patch Changed Definitions of 


Add Patch Changed Definitions of 
Lowercase Code in 

Uppercase Code in 

New 

Streams sharing common 

List 


Create a 

Extract size field of a 

New functions: 

New functions: byte, byte-size, 


New functions: byte, 
Extract position field of a 


Cc 


FUNCTION 

Changes to FUNCTION 

New Zwei command: Comment Out Region (c-X 
Comment Out Region (c-X 

List Buffers (c-X 

FUNCTION 


END and 
Debugger 


Select Previous Buffer 


FUNCTION 

Change in Zmacs command Modified Two Windows 
Modified Two Windows 

Select Buffer 

New Zwei command: Comment Out Region 
Comment Out Region 

List Buffers 

Jump to Saved Position 

Unplugging Lemo 

>Configuration.fep Files Are Now 

New function to be 

Argument to :menu type menu items 
rpiaca 

format ~\ directives 

Shifted Mouse Clicks 

:proceed methods 

tv:scroll-maintain-list init function 

Some Methods 

New 

sink 


Cc 


Buffer (m-X) 123 
Buffer (m-X) Zmacs command 123 
Buffer (m-X) Zwei command 125 
Buffer (m-X) Zwei command 125 
Buffer-history Mechanism in Zmacs 125 
buffers 89 
Buffers (c-X c-B) Zmacs command 125 
byte function 50 
byte specifier 50 
byte specifier 50 
byte, byte-size, byte-position 50 
byte-position 50 
byte-position function 50 
byte-size function 50 
‘byte-size option for copyf 28 
byte-size, byte-position 50 
byte-specifier 50 


C command 113 

C, FUNCTION M, and FUNCTION Q 113 
c-3) 125 

c-3;) Zwei command 125 

c-B) Zmacs command 125 

c-C command 113 

c-END Converse command 116 

c-END swapped in Converse 116 

c-M creates a process 116 

c-M Debugger command 116 

(c-m-L) Zmacs command 125 
c-m-SUSPEND command 116 

e-Q command 113 

(c-X 4) 127 

(c-X 4) Zmacs command 127 

(c-X B) Zmacs command 125 

(c-X c-3) 125 

(c~X c-;) Zwei command 125 

(c-X c-B) Zmacs command 125 

(c-X J) Zmacs command 127 

Cables Should Not Halt the FEP 137 
Called )Boot.boot 134 

called by reader macros: si:read-recursive 83 
can be a menu ora form 105 

can be used with stack lists 148 

can have package prefixes 92 

Can Now Be Used for Editor Commands 103 
can now retum nil 97 

can take arguments 105 

Can Use Combination Type as Method Type 83 
canonical file type: :mss 126 
canonical pathname type removed 35 


RN Release 5.0 Release Notes 
Symbolics, Inc. March 1984 


bin 

‘lisp 

-qbin 

Change 

Change 

New special forms catch and throw replace 
New special forms 


More Information Available on 
Use 


Ramifications of Host Colon 


Changes to Add Patch 
Add Patch 
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canonical type 34 

canonical type 34 

canonical type 34 

Carry tape system 1 

case of buffer 125 

case of region 125 

*catch and *throw 14 

catch and throw replace *catch and *throw 14 

catch special form 14 

Causes of Crashes 137 

cdr with locatives returned by locf 148 

CFIP 109 

Change case of buffer 125 

Change case of region 125 

Change for Baby! Files 129 

Change in argument to 
process-wait-with-timeout 95 

Change in arguments to print-herald 39 

Change in arguments to unadvise 39 

Change in Debugger special command for 
fs:directory-not-found 98 

Change in numeric arguments to Copy File 
(m-X) 124 

Change in type of array returned by 
string-append 16 

Change in Zmacs command Modified Two Windows 
(c-X 4) 127 

Changed Definitions (m-X) and Add Patch Changed 
Definitions of Buffer (m-X) 123 

Changed Definitions (m-xX) Zmacs command 123 


Changes to Add Patch Changed Definitions (m-X) and Add Patch 


Add Patch 


Default File Name 
Meaning of argument 
Arguments 


FEP Version 15: Incompatible 
Window System 


Changed Definitions of Buffer (m-X) 123 

Changed Definitions of Buffer (n-X) Zmacs 
command 123 

Changed for Commands in Dired Buffer 126 

changed for fs:parse-pathname 32 

changed for fs:user-homedir and 
fs:init-file-pathname 34 

Changes 133 

Changes Associated with Mouse Input 40 

Changes to :mouse-click method of 
tv:essential-mouse 42 

Changes to :tyi, :tyi-no-hang, :list-tyi, :mouse-or- 
kbd-tyi, and :mouse-or-kbd-tyi-no-hang 
methods of tv:stream-mixin 40 

Changes to Add Patch Changed Definitions (m-X) and 
Add Patch Changed Definitions of Buffer 
(m-X) 123 

Changes to chaos:open-stream 108 

Changes to Converse Notifications 117 

Changes to Font Editor File Commands 113 

Changes to format:ochar 21 

Changes to FUNCTION C, FUNCTION M, and 
FUNCTION Q 113 

Changes to Host Determination in Pathnames 30 

Changes to input editor options :do-not-echo, :pass- 
through, :prompt, :reprompt 22 

Changes to Input Editor User Interface 22 
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Incompatible 


Internal 


Incompatible 


Incompatible 
Incompatible 


Incompatible 
Incompatible 


Incompatible 


chaos:stream, 


New function: 
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Changes to Lisp in Release 5.0 5 

Changes to Logical Pathname Translations 35 

Changes to Logical Pathnames 35 

Changes to login 5 

changes to macros zwei:defmajor and 
zwei:defminor 127 

Changes to make-syn-stream 20 

Changes to Networks in Release 5.0 107 

Changes to Networks in Release 5.0 107 

Changes to open 24 

Changes to open option :direction 24 

Changes to Packages 6 

Changes to prompt-and-read 84 

Changes to Readtable, Reader, and Printer for 
Common Lisp 16 

Changes to renamef and copyf 26 

Changes to Serial I/O: Parity Recovery and Xon/Xoff 
Character Setting 109 

Changes to the FEP in Release 5.0 133 

Changes to the File System in Release 5.0 119 

Changes to the File System in Release 5.0 119 

Changes to the Input Editor (Rubout Handler) 21 

Changes to the Lisp Language and Compiler in 
Release 5.0 5 

Changes to Utilities in Release 5.0 113 

Changes to Utilities in Release 5.0 113 

Changes to VMS Chaosnet 109 

Changes to Zmacs in Release 5.0 123 

Changes to Zmacs in Release 5.0 123 

Changes to Zmail in Release 5.0 129 

Changes to Zmail in Release 5.0 129 

schaos event 95 

:chaos option for si:sb-on 95 

chaos:close function 107 

chaos:close, and chaos-finish renamed 107 

chaos:close-conn function 107 

chaos:conn-finished-p 109 

chaos:conn-finished-p function 109 


neti:reset, neti:enable, and neti:disable replace chaos:reset, chaos:enable, and 


chaos:disable 107 
chaos:disable function 107 
chaos:enable function 107 


neti:reset, neti:enable, and neti:disable replace chaos:reset, 


chaos:stream, chaos:close, and 


Changes to 


Show Hardcopy Status (m-X) replaces 


neti:reset, neti:enable, and neti:disable replace 


chaos:enable, and chaos:disable 107 
chaos:finish function 107 
chaos:finish renamed 107 
chaos:finish-conn function 107 
chaos:make-stream function 107 
chaos:open-stream 108 
chaos:open-stream function 108 
chaos:print-igp-queue 115 
chaos:print-Ipg-queue function 115 
chaos:reset function 107 
chaos:reset, chaos:enable, and 

chaos:disable 107 
chaos:return-pkt function 108 
chaos:send-pkt function 108 
chaos:send-unc-pkt automatically returns the packet 
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Changes to VMS 


Known problem: char-upcase and 


Known problem: 


Activation 

Escape 

Macro 

Reading and Printing 


Changes to Serial I/O: Parity Recovery and Xon/Xoff 


Continue Command Sends an All-keys-up 
Activation 
Floating-point exponent 
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to the free pool 108 
chaos:send-unc-pkt function 108 
chaos:stream function 107 
chaos:stream, chaos:close, and chaos:finish 

renamed 107 
Chaosnet 109 
Chaosnet sequence break 95 
char-downcase function 145 
char-downcase undefined for modified 

characters 145 
char-upcase and char-downcase undefined for 

modified characters 145 
char-upcase function 145 
character 65 
character 114 
character 17 - 
Character Objects 19 
scharacter option for prompt-and-read 85 
Character output 21 
Character quoter 17 
Character Setting 109 
Character syntax descriptions 17 
Character to Lisp 137 
characters 22, 57 
characters 17 


Known problem: char-upcase and char-downcase undefined for modified 


Mouse 
Octal escape for special 


Circular-tink 

Compiler Performs Style 

New 

Clicking Middle Edits Current String in 
si: 


New variable: 


Release 5.0: Notes and 


New 
New FEP Commands: Add Disk-type and 


:clear-screen, :clear-eol, and 


:clear-screen, 


Previously undocumented function: 


characters 145 
characters 102 
characters 17 
:characters option for copyf 28 
Characters with modifier bits 145 
checking 120 
Checking on All Forms 81 
CHNCP.GSF global section 109 
Choose-variable-values Keywords 76 
Choose-variable-values Windows 105 
circlecross syntax description 18 
Circular-link checking 120 
cl:*read-default-float-format* 17 
cl:*read-default-float-format* variable 17 
cl:double-float format 17 
cl:long-float format 17 
cl:short-float format 17 
cl:single-float format 17 
Clarifications 143 
Clarifications and Corrections for Release 5.0 143 
clause for condition-call: :no-error 98 
Clear Disk-types 136 
Clear Disk-types FEP command 136 
:clear-eof messages to windows renamed 44 
:clear-eof method of tv:sheet 44 
:clear-eol method of tv:sheet 44 
:clear-eol, and :clear-eof messages to windows 
renamed 44 
clear-resource 78 
clear-resource function 78 
:clear-rest-of-line method of tv:sheet 44 
:clear-rest-of-window method of tv:sheet 44 
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Receiving mouse 
Modified mouse 
Shifted Mouse 


chaos: 

chaos:stream, chaos: 
chaos: 

Lowercase 

Uppercase 

Lowercase 

Uppercase 

Imlac terminal 
string-length uses same 
What happens when you 
New variable: tv: 

tv: 

Ramifications of Host 
zwei: 


Some Methods Can Use 
Add Disk-type FEP 
Add Patch Changed Definitions (m-X) Zmacs 


Append Conversation By References (m-X) Zmail 
Boot FEP 

c-END Converse 

c-M Debugger 

c-m-SUSPEND 

Clear Disk-types FEP 

Comment Out Region (c-X c-;) Zwei 
Continue FEP 

Copy File (m-X) Zmacs 

Delete Conversation By References (m-X) Zmail 
Disk Format FEP 

END Converse 

Find Files in Tag Table (m-X)) Zwei 
FUCTION m-Q 

FUNCTION C 

FUNCTION c-C 

FUNCTION c-Q 

FUNCTION M 

FUNCTION m-C 

FUNCTION Q 

FUNCTION W 

h-c-upper-left 

Jump to Saved Position (c-X J) Zmacs 
List Buffers (c-X c-B) Zmacs 

Load Microcode FEP 

Load Sync-program FEP 


RN Release 5.0 Release Notes 
Symbolics, Inc. March 1984 


:clear-screen method of tv:sheet 44 

:clear-screen, :clear-eol, and :clear-eof messages 
to windows renamed 44 

:clear-window method of tv:sheet 44 

Clicking Middle Edits Current String in Choose- 
variable-values Windows 105 

clicks 40 

Clicks as editor commands 103 

Clicks Can Now Be Used for Editor Commands 

sclock event 95 

sclock option for si:sb-on 95 

Clock sequence break 95 

close function 107 

close, and chaos-finish renamed 

close-conn function 107 

Code in Buffer (m-X) Zwei command 

Code in Buffer (m-X) Zwei command 

Code in Region (m-X) Zwei command 

Code in Region (m-X) Zwei command 

codes 114 

coercion rules as string 16 

cold boot 143 

cold-load-stream-old-selected-window 74 

cold-load-stream-old-selected-window variable 74 

Colon Change for Baby! Files 129 


103 


107 


125 

125 
125 
125 


‘com-zmail-select-all-conversations-by-references 


function 130 
Combination Type as Method Type 83 
command 136 
command 123 


Add Patch Changed Definitions of Buffer (m-X) Zmacs 


command 123 
command 130 
command 134 
command 116 
command 116 
command 116 
command 136 
command 125 
command 137 
command 28, 124 
command 130 
command 134 
command 116 
command 125 
command 113 
command 113 
command 113 
command 113 
command 113 
command 113 
command 113 
command 148 
command 133, 140 
command 127 
command 125 
command 134 
command 134, 135 
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Load World FEP 

Lowercase Code in Buffer (m-X) Zwei 
Lowercase Code in Region (m-X) Zwei 
m-SUSPEND 

Major-mode-setting 

Modified Two Windows (c-X 4) Zmacs 
NETWORK A 

NETWORK D 

NETWORK L 

NETWORK M 

NETWORK Q 

NETWORK X 

R Fed 

Resume Patch (m-X) Zmacs 
Return-keyboard-to-lisp FEP 

Select All Conversations By References (m-X) Zmail 
Select Buffer (c-X B) Zmacs 

Select Conversation By References (m-X) Zmail 
Select Previous Buffer (c-m-L) Zmacs 
SELECT T 

SELECT X 

Set Package (m-X) Zmacs 

Show Configuration FEP 

Show File FEP 

Show Hardcopy Status (m-X) Zwei 
Show Status FEP 

Source Compare (m-X) Zwei 

Source Compare Newest Definition (m-X) Zmacs 
Start Private Patch (m-X) Zmacs 
Uppercase Code in Buffer (m-X) Zwei 
Uppercase Code in Region (m-X) Zwei 
W Fed 

Disk Format 

Show Configuration 

Show Status 

Change in Debugger special 

Change in Zmacs 


Continue 


command 134 

command 125 

command 125 

command 116 

command 126 

command 127 

command 114 

command 114 

command 114 

command 114 

command 114 

command 114 

command 113 

command 124 

command 137 

command 130 

command 125 

command 130 

command 125 

command 114 

command 114 

command 123 

command 135 

command 134 

command 115 

command 137, 140 

command 123 

command 124 

command 124 

command 125 

command 125 

command 113 

Command Asks Different Question 134 

Command Displays More Information 135 

Command Displays More Useful Information 140 

command for fs:directory-not-found 98 

command Modified Two Windows (c-X 4) 127 

scommand option 58 

Command Sends an All-keys-up Character to 
Lisp 137 


New input editor options: :no-input-save, :activation, 


New Zwei 
New Zwei 
New Zmacs 
New Zmacs 


New Zmacs 

Changes to Font Editor File 

Modified mouse clicks as editor 

NETWORK 

New Defaults for FEP 

Shifted Mouse Clicks Can Now Be Used for Editor 
Default File Name Changed for 

Major-mode-setting 


New FEP 


‘command, :preemptable 5/7 
command: Comment Out Region (c-X c-;) 125 
command: Find Files in Tag Table (m-X) 125 
command: Resume Patch (m-X) 124 
command: Source Compare Newest Definition 
(m-X) 124 
command: Start Private Patch (m-X) 124 
Commands 113 
commands 103 
commands 114 
Commands 134 
Commands 103 
Commands in Dired Buffer 126 
Commands Now Query About Updating File Attribute 
List 126 
Commands: Add Disk-type and Clear 
Disk-types 136 
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New Zwei command: 


Streams sharing 


Changes to Readtable, Reader, and Printer for 
Reader Accepts 


Get 


Both default pathnames for Source 
Source 

New Zmacs command: Source 

. Source 


Changes to the Lisp Language and 


Pathname 

String 

:special-command-p method of 
New 

New 


New clause for 


New message to 
Show 


Show 

Site 

New function: chaos: 
chaos: 

String 

Delete 


Returning 


Append 
Delete 


Select 
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Comment Out Region (c-X c-3) 125 

Comment Out Region (c-X c-;) Zwei 
command 125 

Comments for Lisp reader 83 

common buffers 89 

Common Lisp 1 

Common Lisp 16 

Common Lisp Floating Point Exponents 17 

Common Lisp readtable 83 

Common Property Lists process 143 

Communication between programs and input 
editor 63 

Compare (m-X) now use :newest version 123 

Compare (m-X) Zwei command 123 

Compare Newest Definition (m-X) 124 

Compare Newest Definition (n-X) Zmacs 
command 124 

Comparing backup tapes 151 

Compiler 1 

Compiler in Release 5.0 5 

Compiler now warns about implicit progns in 
loops 82 

Compiler Performs Style Checking on All Forms 81 

compiler:style-checker property 81 

Complement mouse documentation line 113 

Complement screen 113 

Complement window 113 

completion on VMS _ 109 

concatenation 16 

condition 74 

condition flavor: fs:multiple-file-not-found 69 

condition flavor: fs:rename-across-hosts 70 

condition-bind special form 97 

condition-call special form 98 

condition-call-if special form 98 

condition-call: :no-error 98 

condition-case special form 98 

conditions: :special-command-p 74 

Configuration Command Displays More 
Information 135 

Configuration FEP command 135 

Configuration for Dialnet 151 

conn-finished-p 109 

conn-finished-p function 109 

construction 65 

contents of window 44 

Continue Command Sends an All-keys-up Character 
to Lisp 137 

Continue FEP command 137 

control from input editor 57 

CONTROL key 102 

Controlling typeout style 65 

Conversation By References (m-X) Zmail 
command 130 

Conversation By References (m-X) Zmail 
command 130 

Conversation By References (m-X) Zmail 
command 130 
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Sorting by 
Select All 


New [map Over] Menu Item: [select 
{Select 

END and c-END swapped in 

~ e-END 

END 


Changes to 
zwei: 


Change in numeric arguments to 


Using 

:-byte-size option for 
:characters option for 
:create-directories option for 
:‘report-stream option for 
Changes to renamef and 


Previously Undocumented Feature: 
si; 
si: 
si: 

Clarifications and 
sys: 
sys: 

Program 
Displaying program 
Current micro PC 


New font: fonts: 
More Information Available on Causes of 


Set Package (m-X) offers to 


Debugger c-M 


Directory 
Ratios read in current ibase and print in 
Ratios read in 


FUNCTION 2 W displays 
Clicking Middle Edits 


Conversations Available 130 

Conversations By References (m-X) Zmail 
command 130 

Conversation] 130 

Conversation} Map Over menu item 130 

Converse 116 

Converse command 116 

Converse command 116 

Converse facility 116 

Converse Notifications 117 

*converse-end-exits* variable 116 

Convert number to single-precision floating-point 48 

Convert number to small flonum 48 

Converting numbers to double-precision 
floating-point 49 

Copy File (m-X) 124 

Copy File (m-X) Zmacs command 28, 124 

copy-array-contents function 145 

copy-array-contents-and-leader function 145 

copy-array-portion function 145 

copy-array-portion on the same array 145 

copyf 28 


cop 26 

copyf function 28 

Copying file attributes 124 

Copying files 28 

Coroutine Streams 89 

coroutine-bidirectional-stream flavor 92 

coroutine-input-stream flavor 92 

coroutine-output-stream flavor 92 

scorrect-input 23, 24 

Corrections for Release 5.0 143 

%count-disk-page-read-operations-in-scavenger 

meter 52 

%count-disk-page-read-operations-in-transporter 
- meter 52 

counter (PC) metering 50 

counters information 137 

(CPC) status information 137 

cptfonti 75 

Crashes 137 

Create a byte specifier 50 

create a package 123 

Create new logical host 37 

create value of open option :if-does-not-exist 25 

:create-directories option for copyf 28 

:create-screen-array message to screens 79 

Creates a process 116 

Creating logical host 38 

creation on VMS_ 109 

current base 19 

current Ibase and print in current base 19 

Current micro PC (CPC) status information 137 

current process name in status line 148 

Current String in Choose-variable-values 
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Mouse 


NETWORK 


New 
Network 


New variable: 


Functions moved from the si package to global: 
New variable: dbg: 
dbg: 


c-M 
Change in 


How to use the sys:function-parent 
sys:function-parent 


dbg: 
Dumper Restarting and Append-to-tape 


Recursion in Bound and 
New 
Both 


New 


Font Editor file type 
New 
New special form: 


:mixture option for 
:required-init-keywords option for 
New option for 

New option for 

New special form: format: 
format: 

New special form: 
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Windows 105 
cursor speed 100 


D command 114 

D exponent identifier 17 

data types: :single-float and :double-float 49 
database 107 

date option for prompt-and-read 85 
:date-or-never option for prompt-and-read 85 
dbg:*debug-io-override* 74 
dbg:*debug-io-override* variable 74 
dbg:decode-micro-pe function 137 
deallocate-whole-resource function 13 
deallocate-whole-resource, map-resource 13 
Deallocating allocated objects of a resource 13 
*debug-io-override* 74 

*debug-io-override* variable 74 


‘m-SUSPEND selects frame with break read function for 


Debugger 116 

Debugger c-M creates a process 116 

Debugger command 116 

Debugger special command for 
fs:directory-not-found 98 

:decimal-number option for prompt-and-read 85 

:decimal-number-or-nil option for 
prompt-and-read 85 

declaration 145 

declaration 145 

decode-micro-pe function 137 

Default 121 

Default File Name Changed for Commands in Dired 
Buffer 126 

Default Font Format Now Bid 113 

Default handlers 97 

Default Handlers Eliminated 97 

Default LMFS Translation Table for Sys Hosts 119 

default pathnames for Source Compare (m-X) now 
use :newest version 123 

Default Representations for Newest and Oldest 
Logical Pathname Versions 35 

:default-value option to make-piane 80 

defaults 113 

Defaults for FEP Commands 134 

defconstant 45 

defconstant special form 45 

defflavor 54 

defflavor 54 

defflavor: :mixture 54 

defflavor: :required-init-keywords 53 

defformat 56 

defformat special form 56 

define-symbol-macro 53 

define-symbol-macro special form 53 

Defining a format directive 56 

Defining family of flavors 54 

Definition 145 
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New Zmacs command: Source Compare Newest 
Source Compare Newest 


Changes to Add Patch Changed 
Add Patch Changed 
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Definition (m-X) 124 

Definition (m-X) Zmacs command 124 

Definition types 145 

Definitions (m-X) and Add Patch Changed Definitions 
of Buffer (m-X) 123 

Definitions (m-X) Zmacs command 123 


Changes to Add Patch Changed Definitions (m-X) and Add Patch Changed 


Add Patch Changed 
Internal changes to macros zwei: 
zwei: 


zwei: 
New special form: 


sys: 


Previously undocumented function: 


si:alphabetic syntax 
si:break syntax 
si:circlecross syntax 
si:doublequote syntax 
si:macro syntax 
si:single syntax 
si:slash syntax 
si:verticalbar syntax 
si:whitespace syntax 
Character syntax 
New 


bitbit width from the 
Previously undocumented special form: 


Changes to Host 
New function: 


International 
Site Configuration for 


Disk Format Command Asks 
New descriptions: si:bitscale, si: 


Definitions of Buffer (m-X) . 123 
Definitions of Buffer (m-X) Zmacs command 123 
defmajor and zwei:defminor 127 
defmajor macro 127 


Internal changes to macros zwel:defmajor and zwei: 


defminor 127 
defminor macro 127 
defpackage 7 


defpackage special form 7 

defsubst-with-parent macro 145 

Delete contents of window 44 

Delete Conversation By References (m-X) Zmail 
‘command 130 

Delete to end of line 44 

Delete to end of window 44 

:delimited-string option for prompt-and-read 85 

:delimited-string-or-nil option for 
prompt-and-read 85 

sdelimiter option for prompt-and-read 85 

describe-system 94 | 

describe-system function 94 

description 18 

description 18 

description 18 

description 18 

description 18 

description 18 

description 18 

description 18 

description 18 

descriptions 17 

descriptions: si:bitscale, si:digitscale, 
si:non-terminating-macro 17 

destination array 145 

destructuring-bind 77 

destructuring-bind special form 77 

Determination in Pathnames 30 

dfloat 49 

dfloat function 49 

dial network 151 

DIAL network type 151 

Dialnet 151 

Different Question 134 

digitscale, si:non-terminating-macro 17 


Muttidimensional Arrays on the 3600 Remember Actual 


‘input value of open option 

:output value of open option 

probe value of open option 
:probe-directory value of open option 
:probe-link value of open option 


Dimensions 78 
<direction 24 
sdirection 24 
:direction 24 
sdirection 24 
:direction 24 
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Changes to open option 


Defining a format 
“e format 
~~» format 

“@* format 
“@T format 
“G format 
“X format 
format ~\ 
format 
New format 
Home 


LMFS Now. Supports 

Wildcard 

Change in Debugger special command for fs: 
fs: 


Default File Name Changed for Commands in 
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direction 24 

:direction option 24 

directive 56 

directive 55 

directive 55 

directive 21 

directive 21 

directive 21 

directive 21 

directives can have package prefixes 92 
directives “@T and ~“@* replace “X and "G21 
directives: “» and “+ 55 

directory 34 

Directory creation on VMS _ 109 
Directory Links 120 

Directory Mapping Available 92 
directory-not-found 98 
directory-not-found flavor 98 

Dired 126 

Dired Buffer 126 


neti:reset, neti:enable, and neti:disable replace chaos:reset, chaos:enable, and chaos: 


chaos: 
neti: 
neti:reset, neti:enable, and neti: 


Optimizing 


New FEP Commands: Add 

Add 

New FEP Commands: Add Disk-type and Clear 
Clear 


FUNCTION 2 W 
Show Configuration Command 
Show Status Command 


Changes to input editor options 


Complement mouse 
RFC822 

Rfc822 

Invisible blocks in progs and 

New data types: :single-float and 

cl: 

New functions: sys:single-float-p, sys: 
sys: 

IEEE-standard 

3600 Supports leee Single- and 
Converting numbers to 

si: 

:draw-filled-in-circle uses same algorithm as 


disable 107 

disable function 107 

disable function 107, 108 

disable replace chaos:reset, chaos:enable, and 
chaos:disable 107 

disk allocation 25 

Disk Format Command Asks Different Question 134 

Disk Format FEP command 134 | 

:disk option for si:sb-on 95 

Disk sequence break 95 

Disk-type and Clear Disk-types 136 

Disk-type FEP command 136 

Disk-types 136 

Disk-types FEP command 136 

:displaced-conformally option for make-array 78 

Display process name 148 

Displaying program counters information 137 

displays current process name in status line 148 

Displays More Information 135 

Displays More Useful Information 140 

:do-not-echo option 22 

:do-not-echo, :pass-through, :prompt, 
sreprompt 22 

documentation line 113 

domain addressing 130 

Domain Addressing Supported 130 

dos 78 

:double-float 49 

double-fioat format 17 

double-float-p 49 

double-float-p function 49 

double-precision 48 

Double-precision Floating Point 48 

double-precision floating-point 49 

doublequote syntax description 18 

:draw-circle 99 

:draw-circle method of tv:graphics-mixin 99 
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sys: 
LMFS 
LMFS 


tv: 


E 
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:draw-filled-in-circle method of 
tv:graphics-mixin 99 

:draw-filled-in-circle uses same algorithm as 
:draw-circle 99 

dump-forms-to-file always puts package attribute 
into binary file 82 

dumper 121 

Dumper Restarting and Append-to-tape Default 121 

Dumper Supports Accordion Wildcards 119 


E exponent identifier 17 
edit-namespace-object function 107 


Baby! files with summary-window-format other than t or nil need to be 


Communication between programs and input 
input 

Namespace 

Reading function to use input 

Returning control from input 

Incompatible Changes to the Input 

New Features Associated with the Input 
Font 


Modified mouse clicks as 

Shifted Mouse Clicks Can Now Be Used for 
Changes to Font 

Font 

[Read File] Font 

(Write File] Font 

Changes to input 


New input 


Changes to Input 
Using the Input 
Clicking Middle 


sort predicate should return nil for equal 

Optional argument to mapatoms-all and where-is 
Recursion in Bound and Default Handlers 

chaos: 

neti: 


edited 129 

editor 63 

editor 1 

editor 107 

editor 59 

editor 57 

Editor (Rubout Handler) 21 

Editor (Rubout Handler) 57 

Editor and Inspector use ESCAPE to evaluate 
forms 116 

editor commands 103 

Editor Commands 103 

Editor File Commands 113 

Editor file type defaults 113 

Editor menu item 113 

Editor menu item 113 

editor options :do-not-echo, :pass-through, 
‘prompt, :reprompt 22 

editor options: :no-input-save, :activation, 
:command, :preemptable 57 

editor output format style 21 

Editor User Interface 22 

Editor: Examples 65 

Edits Current String in Choose-variable-values 
Windows 105 

elements 144 

eliminated 7 

Eliminated 97 

enable function 107 

enable function 107, 108 


neti:reset, neti:enable, and neti:disable replace chaos:reset, chaos: 


neti:reset, neti: 


Error 


Delete to 
Erase to 
Delete to 
Erase to 
‘Inspecting hash arrays of 


enable, and chaos:disable 107 
enable, and neti:disable replace chaos:reset, 
chaos:enable, and chaos:disable 107 
Enabled events 95 
encapsulation 65 
END and c-END swapped in Converse 116 
END Converse command 116 
end of line 44 
end of line 44 
end of window 44 
end of window 44 
eq hash tables not permitted 145 
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New function: eql 44 
eql function 44 
sort predicate should return nil for equal elements 144 
Erase to end of line 44 
Erase to end of window 44 
Erase window 44 
Error encapsulation 65 
New _ error flavors: sys:parse-error and 
sys:parse-ferror 23 
error value of open option :if-does-not-exist 25 
:etror value of open option for :if-exists 25 
Improvements to make-system: —error-restart, selective transformations 94 
Syntax errors in read functions 23 
. Avoid Errors in the Mouse Process 149 
New message to arithmetic errors: operands 98 
Escape character 114 
Octal escape for special characters 17 
Font Editor and Inspector use ESCAPE to evaluate forms 116 
:mouse-click method of tv: essential-mouse 42 
Changes to :mouse-click method of tv: essential-mouse 42 
New open option: sestimated-length 25 
:estimated-length option 25 
:eval-form option for prompt-and-read 85 
:eval-form-or-end option for prompt-and-read 85 
evaihook function 72, 73 
Evaluate a Lisp form 116 
Font Editor and Inspector use ESCAPE to evaluate forms 116 
‘chaos event 95 
sclock event 95 
‘keyboard event 95 
Enabled events 95 
Flavor Examiner 1 
New feature: Flavor Examiner (SELECT X) 114 
Using the Input Editor: Examples 65 
h-c-upper-left stops execution of Lisp 133 
meter: expand-range function 51 
Floating-point exponent characters 17 
exponent identifier 17 
exponent identifier 17 
exponent identifier 17 
exponent identifier 17 
exponent identifier 17 
exponent identifier 17 
t Exponents 17 
:expression option for prompt-and-read 85 
:expression-or-end option for prompt-and-read 85 
:extension option to make-plane 80 
External symbols 6 
Extract position field of a byte-specifier 50 
Extract size field of a byte specifier 50 


Ar-unmMow 


Reader Accepts Common Lisp Floating Poi 


pam | 
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Converse 
Defining 


Previously Undocumented _ 


New 
FEP Version 14: New 
FEP Version 15: New 
FEP Version 16: New 
New 


New 
New 
New 
New 
New 
New 

R 

W 


Unplugging Lemo Cables Should Not Halt the 
Add Disk-type 

Boot 

Clear Disk-types 
Continue 

Disk Format 

Load Microcode 

Load Sync-program 
Load Worid 
Return-keyboard-to-lisp 
Show Configuration 
Show File 

Show Status 

New Defaults for 

New 


Changes to the 


Extract size 

Extract position 
Redistributed- header 
Resent- header 

Init 

Logging host output to 
Rename 
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F exponent identifier 17 

facility 116 

family of flavors 54 

Feature: Coroutine Streams 89 
feature: Flavor Examiner (SELECT X) 
Features 133 

Features 135 

Features 136 

Features Associated with the Input Editor (Rubout 


114 


Handler) 


57 


Features in Lisp in Release 5.0 44 


Features In Networks in Release 5.0 
Features in the File System in Release 5.0 
Features in Utilities in Release 5.0 
Features in Zmacs in Release 5.0 
Features in Zmail in Release 5.0 

113 
113 


Fed command 
Fed command 
FEP 1 

FEP 137 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 
FEP command 


FEP Commands 


108 

120 
114 
124 

130 


FEP Commands: Add Disk-type and Clear 


Disk-types 
FEP in Release 5.0 


136 
133 


FEP Supports Hdlc Serial 1/O 


FEP Version 14: 
FEP Version 15: 
FEP Version 15: 
FEP Version 15: 
FEP Version 16: 
FEP Version 16: 
FEP Version 17: 
FEP Version 18: 


New Features 
Improvements 


Incompatible Changes 


New Features 
Improvements 
New Features 
Improvements 
Improvements 


field of a byte specifier 50 
field of a byte-specifier 50 


fields 130 
fields 130 
file 34 
fle 114 
file 27 


133 


133 
135 
133 
135 
137 
136 
140 
140 


sys:dump-forms-to-file always puts package attribute into binary 


Change in numeric arguments to Copy 
Copy 


file 82 
File (m-X) 


124 


File (n-X) Zmacs command 28, 124 
Major-mode-setting Commands Now Query About Updating 


172 


Copying 
Changes to Font Editor 
Show 


Default | 


Probe 
summary-window-format Baby! 
Init 

Zmail Init 


Changes to the 

Incompatible Changes to the 
New Features in the 
[Reload/Retrieve] 


fep 

Font Editor 

New canonical 

)Boot.boot 
>Configuration.fep 

Copying 

Ramifications of Host Colon Change for Babyl 
>Configuration.fep 

New Zwei command: Find 
Find 

Babyl 


(Read 
(Write 
New Zwei command: 


net: 

chaos: 

chaos:stream, chaos:close, and chaos: 
chaos: 


New methods of tv:stream-mixin: :start-typeout, 


fs:directory-not-found 
fs:multiple-file-not-found 
fs:rename-across-hosts 
fs:undefined-logical-pathname-translation 
Remove 
si:coroutine-bidirectional-stream 
si:coroutine-input-stream 
si:coroutine-output-stream 
si:modem 

si:modem-error 
si:serial-hdic-stream 
sys:arithmetic-error 
sys:parse-error 

sys:parse-ferror 

tv:any-tyi-mixin 
tv:kbd-mouse-buttons-mixin 
tv:list-mouse-buttons-mixin 
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File Attribute List 126 

file attributes 124 

File Commands 113 

File FEP command 134 

File Name Changed for Commands in Dired 
Buffer 126 

File opened for input 24 

File opened for output 24 

fille opening 24 

file option 129 

File Pathnames Standardized 34 

File Pathnames Standardized 129 

File System 1 

File System in Release 5.0 119 

File System in Release 5.0 119 

File System in Release 5.0 120 

File System Maintenance menu item 151 

file type 134 

file type defaults 113 

file type: :mss 126 

files 134 

files 134 

files 28 

Files 129 

Files Are Now Called >Boot.boot 134 

Files in Tag Table (m-X) 125 

Files in Tag Table (m-X)) Zwei command 125 

files with summary-window-format other than t or 
nil need to be edited 129 

File] Font Editor menu item 113 

File] Font Editor menu item 113 

Find Files in Tag Table (m-X) 125 

Find Files in Tag Table (m-X)) Zwei command 

find-objects-from-property-list function 143 

finish function 107 

finish renamed 107 

finish-conn function 107 

‘finish-typeout method of tv:stream-mixin 64 

‘finish-typeout, :rescanning-p, :force-rescan, 
:replace-input, :read-bp 

Fixed-width italic font 75 

flavor 98 

flavor 70 

flavor 70 

flavor 37 

flavor 53 

flavor 92 

flavor 92 

flavor 92 

flavor 111 

flavor 111 

flavor 110 

flavor 98 

flavor 23 

flavor 24 

flavor 40 

flavor 42 

flavor 42 


125 
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tv:list-tyi-mixin 
tv:margin-space-mixin 
tv:preemptable-read-any-tyi-mixin 
tv:truncatable-lines-mixin 
tv:truncating-lines-mixin 
tv-truncating-window 


New feature: 


New condition 
New condition 
New 

Defining family of 


New error 
New 


3600 Supports leee Single- and Double-precision 
Reader Accepts Common Lisp 


‘Convert number to single-precision 
Converting numbers to double-precision 


floatp returns t for any 


Convert number to small 
Small 

Fixed-width italic 
Changes to 

{Read File) 

[Write File] 

Default 

New 


New font: 


flavor 40 

flavor 75 

flavor 43 

flavor 102 

flavor 102 

flavor 102 

Flavor Examiner 1 

Flavor Examiner (SELECT X) 114 

Flavor fs:undefined-logical-pathname-translation 
replaces 
fs:undefined-logical-pathname-directory 37 

Flavor tv:preemptable-read-any-tyi-mixin 
obsolete 43 

flavor: fs:multiple-file-not-found 69 

flavor: fs:rename-across-hosts 70 

flavor: tv:margin-space-mixin 74 

flavors 54 

Flavors tv:any-tyi-mixin and tv:list-tyi-mixin 
obsolete 40 

Flavors tv:list-mouse-buttons-mixin and tv:kbd- 
mouse-buttons-mixin obsolete 42 

flavors: sys:parse-error and sys:parse-ferror 23 

flavors: tv:truncatable-lines-mixin, 
tv:truncating-lines-mixin 102 

float function 48 

float returns a single-precision number 48 

Floating Point 48 

Floating Point Exponents 17 

Floating point numbers 1 

floating-point 48 

floating-point 49 

Floating-point exponent characters 17 

floating-point number 49 

Floating-point numbers 48, 49 

floatp function 49 

floatp returns t for any floating-point number 49 

Flonum 49 

flonum 48 

flonum 49 

font 75 

Font Editor and Inspector use ESCAPE to evaluate 
forms 116 

Font Editor File Commands 113 

Font Editor file type defaults 113 

Font Editor menu item 113 

Font Editor menu item 113 

Font Format Now Bid 113 

‘font-list option for prompt-and-read 85 

font: fonts:cptfonti 75 

fonts package 6 

fonts:cptfonti 75 

‘force-rescan method of tv:stream-mixin 64 


New methods of tv:stream-mixin: :start-typeout, -finish-typeout, :rescanning-p, 


‘force-rescan, :replace-input, :read-bp 63 
Forgetting objects remembered by a resource 78 


Argument to :menu type menu items can be a menu or a 


block special 


form 105 
form 46 
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catch special 
condition-bind special 
condition-call special 
condition-call-if special 
condition-case special 
defconstant special 
define-symbol-macro special 
defpackage special 
destructuring-bind special 
Evaluate a Lisp 
format:defformat special 
muttiple-value-call special 
multiple-value-prog1 special 
store special 

tagbody special 

throw special 

trace special 

unadvise special 
with-stack-list special 
with-stack-list* special 
Nonkeyword 

New special 

New special 

New special 

Previously undocumented special 
New special 
cl:double-float 
cl:long-float 

cl:short-float 
cl:single-fioat 

Disk 

Defining a 


New 

Default Font 
editor output 
‘read output 
sail output 


format: 


New special form: 
Changes to 


Compiler Performs Style Checking on All 
Font Editor and Inspector use ESCAPE to evaluate 


Symbolics, inc. March 1984 


Ss 
3 
I~YSESSBSS 


form 148 

form of make-array is obsolete 16 

form: defconstant 45 

form: define-symbol-macro 53 

form: defpackage 7 

form: destructuring-bind 77 

form: format:defformat 56 

format 17 

format 17 

format 17 

format 17 

Format Command Asks Different Question 134 
format directive 
format directive 
format directive 
format directive 
format directive 
format directive 
format directive 
format directives “@T and “@* replace ~X and 


NYNVNVAAS 


format directives: “+ and “- 55 
Format FEP command 134 

format for trace output 96 

Format Now Bid 113 

format style 21 

format style 21 

format style 21 

format ~\ directives can have package prefixes 92 
format-args 24 

*format-output® variable 56 
‘format-string 24 
format:*format-output® variable 56 
format:defformat 56 
format:defformat special form 56 
format:ochar 21 

format:ochar function 21 

Forms 81 

forms 116 


RN Release 5.0 Release Notes 


175 


Symbolics, Inc. March 1984 


New special 


New special 
New special 


m-SUSPEND selects 


forms catch and throw replace *catch and 
*throw 

forms: block and tagbody 46 

forms: multipie-vaiue-call and 
multiple-value-progi 47 

frame with break read function for Debugger 116 


chaos:send-unc-pkt automatically returns the packet to the 


New variable: 
fs:make-logical-pathname-host replaces 
Change in Debugger special command for 


Arguments changed for fs:user-homedir and 


New condition flavor: 
Meaning of argument changed for 
New condition flavor: 


Previously undocumented function: 


free pool 108 
fs:*remember-passwords* 70 
fs:*remember-passwords* variable 70 
fs:add-logical-pathname-host 37 
fs:add-logical-pathname-host function 37 
fs:directory-not-found 98 
fs:directory-not-found flavor 98 
fs:init-file-pathname 34 
fs:init-file-pathname function 34 
fs:make-logical-pathname-host function 37 
fs:make-logical-pathname-host replaces 

fs:add-logical-pathname-host 37 
fs:multiple-file-not-found 69 
fs:multiple-file-not-found flavor 70 
fs:parse-pathname 32 
fs:parse-pathname function 33 
fs:rename-across-hosts 70 
fs:rename-across-hosts flavor 70 
fs:set-logical-pathname-host 38 
fs:set-logical-pathname-host function 38 


Flavor fs:undefined-logical-pathname-translation replaces 


Flavor 


Arguments changed for 


si: 

applyhook 

bitbit 

byte 

byte-position 
byte-size 
chaos:close 
chaos:close-conn 
chaos:conn-finished-p 
chaos:disable 
chaos:enable 
chaos-finish 
chaos;:finish-conn 
chaos:make-stream 
chaos:open-stream 
chaos:print-ipg-queue 
chaos:reset 
chaos:retum-pkt 
chaos:send-pkt 
chaos:send-unc-pkt 
chaos:stream 
char-downcase 


fs:undefined-logical-pathname-directory 37 
fs:undefined-logical-pathname-translation 
flavor 37 
fs:undefined-logical-pathname-translation replaces 
fs:undefined-logical-pathname-directory 37 
fs:user-homedir and fs:init-file-pathname 34 
fs:user-homedir function 34 
FUCTION m-Q command = 113 
full-ge function 73 
function 72 
function 145 
function 50 
function 50 
function 50 
function 107 
function 107 
function 109 
function 107 
function 107 
function 107 
function 107 
function 107 
function 108 
function 115 
function 107 
function 108 
function 108 
function 108 
function 107 
function 145 
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char-upease function 145 
clear-resource function 78 
copy-array-contents function 145 
copy-array-contents-and-leader function 145 
copy-array-portion function 145 
copyf function 28 
dbg:decode-micro-pe function 137 
deallocate-whole-resource function 13 
describe-system function 94 
dfloat function 49 
eqi function 44 
evalhook = function 72, 73 
float function 48 
floatp function 49 
format:ochar function 21 
fs:add-logical-pathname-host function 37 
fs:init-file-pathname function 34 
fs:make-logical-pathname-host function 37 
fs:parse-pathname function 33 
fs:set-logical-pathname-host function 38 
fs:user-homedir function 34 
gc-immediately function 98 
intern function 7 
intern-local function 7 
intern-local-soft function 7 
intern-soft function 7 
load-file-list function 39 
login function 5 
make-array function 16 
make-package function 7 
make-plane function 80 
make-syn-stream function 20 
map-resource function 14 
mapatoms-all function 7 
meter:expand-range function 51 
meter:function-name-with-escapes function 52 
meter:function-range function 52 
meter:list-functions-in-bucket function 51 
meter:make-pe-array function 51 
meter:map-over-functions-in-bucket function 52 
meter:monitor-all-functions function 51 
meter:print-functions-in-bucket function 51 
meter:range-of-bucket function 52 
meter:report function 51 
meter:start-monitor function 51 
meter:stop-monitor function 51 
mod function 49 
net:find-objects-from-property-list function 143 
neti:disabie function 107, 108 
neti:enable function 107, 108 
neti:reset function 107, 108 
package-used-by-list function 7 
pkg-create-package function 7 
print-herald function 39 
print-notifications function 99 
process-wait-with-timeout function 95 
prompt-and-read function 85 
read function 61 
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read-delimited-string 
read-from-string 

read-or-end 

readline 

readiine-or-nil 

readline-trim 
record-source-file-name 
remprop 

renamef 

tplaca 

rplacd 
set-syntax-from-description 
si:full-ge 

si:halt 

si:install-microcode 
si:make-coroutine-bidirectional-stream 
si:make-coroutine-input-stream 
si:make-coroutine-output-stream 
si:make-process-queue 
si:make-serial-stream 
si:patch-loaded-p 
si:process-dequeue 
si:process-enqueue 
si:process-queue-locker 
si:read-recursive 
si:reset-process-queue 
si:sb-on 


string-compare 

string-downcase 

string-length 

string-upcase 

sys:%halt 

sys:double-float-p 

syS:parse-ferror 

sys:single-fioat-p 
tv:add-to-system-menu-create-menu 
tv:add-to-system-menu-programs-column 
tv:edit-namespace-object 
tv:menu-choose 

tv:mouse-wait 

tv:scroll-maintain-list 
tv:select-or-create-window-of-flavor 
tv:set-default-font 

undefflavor 

where-is 


Changes to 


tv:scroll-maintain-list init 
m-SUSPEND selects frame with break read 
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function 60 
function 84 
function 62 
function 62 
function 63 
function 62 
function 147 
function 147 
function 27 
function 148 
function 148 
function 18 
function 73 
function 133 
function 94 
function 91 
function 91 
function 91 
function 71 
function 
function 70 
function 71 
function 71 
function 71 
function 83 
function 71 
function 95 
function 144 
function 16 
function 16 
function 81 
function 80 
function 16 
function 80 
function 133 
function 49 
function 24 
function 49 
function 104 
function 104 
function 107 
function 149 
function 101 
function 105 
function 104 
function 149 
function 53 
function 


7 
zwei:com-zmail-select-all-conversations-by-references 


function 130 

FUNCTION 2 W displays current process name in 
Status line 148 

FUNCTION C command 113 

FUNCTION C, FUNCTION M, and FUNCTION QQ 113 

FUNCTION c-C command 113 

FUNCTION c-Q command 113 

function can take arguments 105 

function for Debugger 116 
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Changes to FUNCTION C, 

Changes to FUNCTION C, FUNCTION M, and 
New 

Reading 


meter: 

How to use the sys: 
sys: 

meter: 

New 

New 

Previously undocumented 
Previously undocumented 
New 

New 

Previously undocumented 
New 

New 

New 

New 

New 

New 

Previously undocumented 
New 

New 

Redefining 

Syntax errors in read 


New 
New 


New 
Previously undocumented 


New optional argument to 
New variable: 
Known problem with si: 


Symbols in 


G 
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FUNCTION key 133 

FUNCTION M command 113 

FUNCTION M, and FUNCTION Q~= 113 

FUNCTION m-C command 113 

FUNCTION GQ 113 

FUNCTION Q command 113 

function to be called by reader macros: 
si:read-recursive 83 

function to use input editor 59 

FUNCTION W command 148 

function-name-with-escapes function 52 

function-parent declaration 145 

function-parent declaration 145 

function-range function 52 

function: applyhook 72 

function: chaos:conn-finished-p 109 

function: clear-resource 78 

function: describe-system 94 

function: dfloat 49 

function: eql 44 

function: fs:set-logical-pathname-host 38 

function: make-package 7 

function: mod 49 

function: read-delimited-string 60 

function: readline-or-nil 63 

function: si:patch-loaded-p 70 

function: si:read-or-end 62 

function: string-compare 81 

function: sys:parse-ferror 24 

function: undefflavor 53 

functions 147 

functions 23 

Functions moved from the si package to global: 
deallocate-whole-resource, 
map-resource 13 

functions: byte, byte-size, byte-position 50 

functions: si:make-process-queue, si:process- 
enqueue, si:process-dequeue, si:process- 
queue-locker, si:reset-process-queue 71 

functions: sys:single-float-p, sys:double-float-p 49 

functions: tv:add-to-system-menu-programs- 
column, 
tv:add-to-system-menu-create-menu 103 


G 


gc-immediately 98 

gc-immediately function 98 

gc-on 73 

gc-on variable 73 

gc-reclaim-immediately 148 

gce-reclaim-immediately variable 148 

GET 109 

Get Common Property Lists process 143 

global and keyword packages with the same 
names 7 

Global history 125 

Global kill history 22 
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global package 1,6 
Symbols moved to or from global package 9 
global package symbols 9 
CHNCP.GSF global section 109 
Functions moved from the si package to global: deallocate-whole-resource, 
map-resource 13 
Absolute goto 21 
:draw-circle method of tv: graphics-mixin 99 
:draw-filled-in-circle method of tv: graphics-mixin 99 


H H H 


h-c-upper-left command 133, 140 
h-c-upper-left stops execution of Lisp 133 
h-c-upper-left waits for Lisp to stop itself 140 
si:halt replaces sys: ‘%halt 133 
si; halt function 133 
sys: %halt function 133 
si; halt replaces sys:%halt 133 
Unplugging Lemo Cables Should Not Halt the FEP 137 
3600 select-methods handle :operation-handled-p and 
:send-if-handies 81 
Rubout handler 1, 22 
Incompatible Changes to the Input Editor (Rubout Handler) 21 
New Features Associated with the Input Editor (Rubout 
Handler) 57 
Bound handlers 97 
Defautt handlers 97 
Recursion in Bound and Default Handlers Eliminated 97 
What happens when you cold boot 143 
Hardcopy 113 
Show Hardcopy Status (m-X) replaces 
chaos:print-igp-queue 115 
Show Hardcopy Status (m-X) Zwei command 115 
Inspecting hash arrays of eq hash tables not permitted 145 
Inspecting hash arrays of eq _— hash tables not permitted 145 
format ~\ directives can have package prefixes 92 
FEP Supports Hdlc Serial //O 133 
Hdic Serial 1/0 on the 3600 110 
Redistributed- header fields 130 
Resent- header fields 130 
Logical Pathnames Now __ Hierarchical 35 
Release 5.0: Introduction and Highlights 1 
Global history 125 
Global kill history 22 
Input history 22 
Home directory 34 
Hook arguments 73 
Create new logical host 37 
Creating logical host 38 
Ramifications of | Host Colon Change for Babyl Files 129 
Changes to Host Determination in Pathnames 30 
shost option for prompt-and-read 85 
Logging host output to file 114 
shost-list option for prompt-and-read 85 
New Default LMFS Translation Table for Sys Hosts 119 
How to use the sys:function-parent 
declaration 145 


180 RN Release 5.0 Release Notes 
Symbolics, inc. March 1984 


HYPER key 102 


I I [ 
FEP Supports Hdic Serial I/O 133 
Hdic Serial 1/O on the 3600 110 
:input-error-character serial !/O parameter 109 
sinput-xoff-character serial !/O parameter 109 
:input-xon-character serial 1/O parameter 109 
soutput-xoff-character serial I/O parameter 109 
:output-xon-character serial 1/O parameter 109 
Changes to Serial 1/0: Parity Recovery and Xon/Xoff Character 
Setting 109 
Ratios read in current base and print in current base 19 
#/ and #\ now — identical 19 
B exponent identifier 17 
D exponent identifier 17 
E exponent identifier 17 
F exponent identifier 17 
L exponent identifier 17 
S exponent identifier 17 
3600 Supports eee Single- and Double-precision Floating Point 48 
IEEE-standard double-precision 48 
IEEE-standard single-precision 48 
:create value of open option :if-does-not-exist 25 
‘error value of open option :if-does-not-exist 25 
New open options: :if-exists and sif-does-not-exist 25 
nil value of open option :if-does-not-exist 25 
:if-does-not-exist option 26 
:if-does-not-exist option for open 25 
‘append value of open option for ‘if-exists 25 
‘error value of open option for ‘if-exists 25 
:new-version value of open option for ‘if-exists 25 
:overwrite value of open option for ‘if-exists 25 
‘rename value of open option for ‘if-exists 25 
srename-and-delete value of open option for ‘if-exists 25 
:supersede value of open option for ‘if-exists 25 
‘truncate value of open option for ‘if-exists 25 
New .open options: ‘if-exists and :if-does-not-exist 25 
sif-exists option 25 
sif-exists option for open 25 
Imlac terminal codes 114 
Compiler now warns about implicit progns in loops 82 
FEP Version 15: improvements 135 
FEP Version 16: Improvements 137 
FEP Version 17: Improvements 140 
FEP Version 18: Improvements 140 
Improvements to Lisp in Release 5.0 77 
Improvements to make-system: error-restart, 
selective transformations 94 
Improvements to Utilities in Release 5.0 116 
Improvements to Zmacs in Release 5.0 126 
Improvements to Zmail in Release 5.0 130 
FEP Version 15: Incompatible Changes 133 
Incompatible Changes to: Lisp in Release 5.0 5 
Incompatible Changes to Networks in Release 
§.0- 107 
incompatible Changes to the File System in Release 
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Current micro PC (CPC) status 

Displaying program counters 

Macro PC status 

Old PCs (OPC) status 

Show Configuration Command Displays More 
Show Status Command Displays More Useful 
More 


Zmail 
tv:scroll-maintain-list 


:space 
Arguments changed for fs:user-homedir and fs: 
fs: 


New options for make-plane: 
New options for make-plane: -initial-dimensions, 


New 

File opened for 

Mouse 

Window System Changes Associated with Mouse 
Yanking previous 


Communication between programs and 
Reading function to use 

Returning control from 

Incompatible Changes to the 

New Features Associated with the 
Changes to 


New 
Changes to 
Using the 
Prompting for 


Yanking 


Font Editor and 

si: 

Second argument to si: 

Use record-source-file-name 


Changes to Input Editor User 
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§.0 119 

Incompatible Changes to the Input Editor (Rubout 
Handler) 21 

Incompatible Changes to Utilities in Release 5.0 113 

Incompatible Changes to Zmacs in Release 5.0 123 

Incompatible Changes to Zmail in Release 5.0 129 

information 137 

information 137 

information 137 

information 137 

Information 135 

Information 140 

Information Available on Causes of Crashes 137 

inhibit-idle-scavenging-flag variable 148 

init canonical pathname type removed 35 

Init file 34 

Init File Pathnames Standardized 34 

Init File Pathnames Standardized 129 

init function can take arguments 105 

init option for tv:margin-space-mixin 75 

init-file-pathname 34 

init-file-pathname function 34 

‘initial-dimensions option to make-plane 80 

sinitial-dimensions, :initial-origins 80 

‘initial-origins 80 

‘initial-origins option to make-plane 80 

initialization list: :after-full-ge 73 

input 24 

input 42 

Input 40 

input 22 

Input editor 1 

input editor 63 

input editor 59 

input editor 57 

Input Editor (Rubout Handler) 21 

Input Editor (Rubout Handler) 57 

input editor options :do-not-echo, :pass-through, 
‘prompt, :reprompt 22 

input editor options: :no-input-save, :activation, 
scommand, :preemptable 57 

Input Editor User Interface 22 

Input Editor: Examples 65 

input from user 85 

input history 22 

input in Zwei 1 

:input value of open option :direction 24 

‘input-error-character serial 1/O parameter 109 

:input-xoff-character serial 1/O parameter 109 

sinput-xon-character serial |/O parameter 109 

Inspecting hash arrays of eq hash tables not 
permitted 145 

Inspector use ESCAPE to evaluate forms 116 

install-microcode function 94 

install-microcode now optional 94 

instead of (remprop symbol 
*ssource-file-name) 147 

Interface 22 
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Interface to the Vadic Modem 111 

intern function 7 

intern, intern-local, intern-soft, and intern-local- 
soft return two values 7 

intern-local function 7 

intern, _intern-focal, intern-soft, and intern-local-soft return 

two values 7 

intern-local-soft function 7 

intern, intern-local, intern-soft, and _intern-local-soft return two values 7 
intern-soft function 7 
intern, intern-local, intern-soft, and intern-local-soft return two 

values 7 

Internal changes to macros zwei:defmajor and 
zwei:defminor 127 

Internal symbols 6 

International dial network 151 

Release 5.0: Introduction and Highlights 1 
Invisible blocks in progs and dos 78 
Nonkeyword form of make-array is obsolete 16 
Fixed-width italic font 75 
New [map Over] Menu _ Item: [reply] 130 
New [map Over] Menu _ Item: [select Conversation] 130 
Argument to :menu type menu items can be a menu or a form 105 
TS 34 
h-c-upper-left waits for Lisp to stop itself 140 


J J J 


Jump to Saved Position (e-X J) Zmacs command 127 
Jump to Saved Position (c-X J) Zmacs 
command 127 


K K K 


tv: kbd-mouse-buttons-mixin flavor 42 
Flavors tv:list-mouse-buttons-mixin and tv: kbd-mouse-buttons-mixin obsolete 42 
ALTMODE key 116 
CONTROL key 102 
FUNCTION key 133 
HYPER key 102 
LOCAL key 133 
META key 102 
QUOTE key 116 
SUPER key 102 
:keyboard event 95 
Keyboard keys 1 
:keyboard option for si:sb-on 95 
Keyboard sequence break 95 
Keyboard keys 1 
keyword package 1,6 
keyword package symbols 7 
Symbols in global and keyword packages with the same names 7 
Keyword Symbols Are Self-evaluating 13 
‘keyword-list option for prompt-and-read 8&5 
New Choose-variable-values Keywords 76 
Global kill history 22 
Known problem with 
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NETWORK 


Lisp 

Changes to the Lisp 

Memory Board Not Needed in 
Trim 

Binary 

Unplugging 

Patch 

Complement mouse documentation 
Delete to end of 

Erase to end of 


Truncating 
LMFS Now Supports Directory 


Common 
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si:gc-reclaim-immediately 148 
Known problem: char-upcease and char-downcase 
undefined for modified characters 145 


L command 114 

L exponent identifier 17 

language 1 

Language and Compiler in Release 5.0 5 
Lbus Slot 0 136 

leading and trailing white space 62 


left shift 17 
Lemo Cables Should Not Halt the FEP 137 
level 70 
line 113 
line 44 
line 44 
FUNCTION 2 W displays current process name in status 
line 148 
lines 102 
Links 120 
Changes to Readtable, Reader, and Printer for Common 
Lisp 16 
Lisp 1 
Continue Command Sends an All-keys-up Character to 
Lisp 137 
Lisp 133 


h-c-upper-left stops execution of 


Reader Accepts Common 
Evaluate a 

Improvements to 
Incompatible Changes to 
New Features in 


Changes to the 
Comments for 

Common 
h-c-upper-left waits for 


‘lisp canonical type 34 

Lisp Floating Point Exponents 17 
Lisp form 116 

Lisp in Release 5.0 77 

Lisp in Release 5.0 5 

Lisp in Release 5.0 44 

Lisp language 1 

Lisp Language’and Compiler in Release 5.0 5 
Lisp reader 83 

Lisp readtable 83 

Lisp to stop itself 140 


Major-mode-setting Commands Now Query About Updating File Attribute 


meter: 
Flavors tv: 


tv: 
Changes to :tyi, :tyi-no-hang, 


tv: 

Flavors tv:any-tyi-mixin and tv: 

New initialization 

rplaca can be used with stack 

Stack 

Get Common Property 

New Meters for the 

New Microcode in Release 5.0: 270 on 3600, 998 on 


List 126 

List Buffers (c-X c-B) Zmacs command 125 

list-functions-in-bucket function 51 

list-mouse-buttons-mixin and tv:kbd-mouse-buttons- 
mixin obsolete 42 

list-mouse-buttons-mixin flavor 42 

slist-tyi method of tv:stream-mixin 41 

slist-tyi, :mouse-or-kbd-tyi, and :mouse-or-kbd-tyi-no- 
hang methods of tv:stream-mixin 40 

list-tyi-mixin flavor 40 

list-tyil-mixin obsolete 40 

list: :after-full-ge 73 

lists 148 

lists 148 

Lists process 143 

LM-2 52 

LM-2 3 


Previously undocumented variables: sys:mouse-x-scale-array and sys:mouse-y-scale-array 
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New Default 


Use edr with 
Use edr with locatives returned by 


Round-robin 


Create new 
Creating 


Changes to 
New Default Representations for Newest and Oldest 
Changes to 


Changes to 
cl: 


Break 
Compiler now wams about implicit progns in 


FUNCTION 

NETWORK 

Changes to FUNCTION C, FUNCTION 
FUNCTION 

FUCTION 


Change in numeric arguments to Copy File 
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(LM-2 only) 100 
LMFS 34 
LMFS Accordion Wildcards 120 
LMFS dumper 121 
LMFS Dumper Supports Accordion Wildcards 119 
LMFS Now Supports Directory Links 120 
LMFS Translation Table for Sys Hosts 119 
Load Microcode FEP command 134 
Load Sync-program FEP command 
Load World FEP command 134 
toad-file-list function 39 
load-file-list obsolete 29 
Loading Sync Programs 135 
LOCAL key 133 
locatives returned by locf 148 
locf 148 
locf macro 148 
Lock queue 71 
locking 71 
Logging host output to file 114 
Logging in 1, 5 
logical host 37 
logical host 38 
Logical Pathname Name, Type, and Version Now 
Separated by Periods 35 
Logical Pathname Translations 35 
Logica! Pathname Versions 35 
Logical Pathnames 35 
Logical Pathnames Now Hierarchical 35 
login 5 
fogin function 5 
long-float format 17 
loop macro 82 
loops 116 
loops 82 
Lowercase Code in Buffer (n-X) Zwei command 125 
Lowercase Code in Region (m-X) Zwei 
command 125 


134, 135 


M command 113 

M command 114 

M, and FUNCTION Q 113 

m-C command 113 

m-Q command 113 

m-SUSPEND command 116 

m-SUSPEND selects frame with break read function for 
Debugger 116 

(m-X) 124 


Changes to Add Patch Changed Definitions (m-X) and Add Patch Changed Definitions of Buffer 


New Zmacs command: Resume Patch 


(m-X) 123 
(m-X) 124 


New Zmacs command: Source Compare Newest Definition 


New Zmacs command: Start Private Patch 
New Zwei command: Find Files in Tag Table 
Changes to Add Patch Changed Definitions 


(m-X) 124 
(m-X) 124 
(m-X) 125 
(m-X) and Add Patch Changed Definitions of Buffer 
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Both default pathnames for Source Compare 
Set Package 

Show Hardcopy Status 

Add Patch Changed Definitions 

Add Patch Changed Definitions of Buffer 
Copy File 

Resume Patch 

Set Package 

Source Compare Newest Definition 
Start Private Patch 

Append Conversation By References 
Delete Conversation By References 
Select All Conversations By References 
Select Conversation By References 
Lowercase Code in Buffer 
Lowercase Code in Region 

Show Hardcopy Status 

Source Compare 

Uppercase Code in Buffer 
Uppercase Code in Region 

Find Files in Tag Table 

#B reader 

locf 

loop 

meter:with-monitoring 
package-declare 

swapf 

sys:defsubst-with-parent 
sys:with-open-file-search 
tv:with-mouse-grabbed-on-sheet 
with-input-editing 

zwei:defmajor 

zwei:defminor 


si: 

New reader 

Previously undocumented reader 
Previously undocumented 

New 

New 

New 

Internal changes to 

New function to be called by reader 
[Reload/Retrieve] File System 


:displaced-conformally option for 


Nonkeyword form of 
si: 
si; 
si: 
fs: 
fs; 
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(m-X) 123 
(m-X) now use :newest version 123 
(m-X) Offers to create a package 123 
(m-X) replaces chaos:print-Igp-queue 115 
(m-X) Zmacs command 123 
(m-X) Zmacs command 123 
(m-X) Zmacs Command 
(m~X) Zmacs command 124 
(m-X) Zmacs command 123 
(m-X) Zmacs command 124 
(m-X) Zmacs command 124 
(m-X) Zmail command 130 
(m-X) Zmail command 130 
(m-X) Zmail command 130 
(m~X) Zmail command 130 
(m-X) Zwei command 125 
(m-X) Zwei command 125 
(m-X) Zwei command 115 
(m-X) Zwei command 123 
(m-X) Zwei command 125 
(m-X) Zwei command 125 
(m-X)) Zwei command 125 
macro 18 
macro 148 
macro 82 
macro 52 
macro 7 
macro 82 
macro 145 
macro 69 
macro 74 
macro 59 
macro 127 
macro 127 
Macro character 17 
Macro PC status information 137 
macro syntax description 18 
macro: #B 
macro: # and # 83 
macro: swapf 82 
macro: sys:with-open-file-search 69 
macro: tv:with-mouse-grabbed-on-sheet 74 
macro: with-input-editing 59 
macros zwei:defmajor and zwei:defminor 127 
macros: si:read-recursive 83 
Maintenance menu item 151 
Major and Minor mode system 127 
Major-mode-setting command 126 
Major-mode-setting Commands Now Query About 
Updating File Attribute List 126 
make-array 78 
make-array function 16 
make-array is obsolete 16 
make-coroutine-bidirectional-stream function 91 
make-coroutine-fnput-stream function 91 
make-coroutine-output-stream function 91 
make-logical-pathname-host function 37 
make-logical-pathname-host replaces 
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New function: 


meter: 

:default-value option to 
:extension option to 
:initial-dimensions option to 
‘initial-origins option to 
ctype option to 


New options for 


si: 
New functions: si: 


si: 
chaos: 
Changes to 


Improvements to 


Release 5.0: Operations and Site 
(Reply) 

[Select Conversation] 

New 

New 

meter: 
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fs:add-logical-pathname-host 37 

make-package 7 

make-package function 7 

make-pc-array function 51 

make-plane 80 

make-plane 80 

make-plane 80 

make-plane 80 

make-plane 80 

make-plane function 80 

make-plane: :initial-dimensions, 
‘initial-origins 80 

make-process-queue function 71 

make-process-queue, si:process-enqueue, 
si:process-dequeue, si:process-queue- 
locker, si:reset-process-queue 71 

make-serial-stream function 110, 111 

make-stream function 107 

make-syn-stream 20 

make-syn-stream function 20 

make-system: error-restart, selective 
transformations 94 

Management 151 

Map Over menu item 130 

Map Over menu item 130 

[map Over] Menu Item: [reply] 130 

[map Over} Menu Item: [select Conversation] 130 

map-over-functions-in-bucket function 52 


Functions moved from the si package to global: deallocate-whole-resource, 


Optional argument to 


Wildcard Directory 
:set-space method of tv: 
‘space init option for tv: 
‘space method of tv: 
New flavor: tv: 

tv: 


New Buffer-history 


nil not a valid 

[Read File] Font Editor 

[Reload/Retrieve] File System Maintenance 

[Reply] Map Over 

[Select Conversation] Map Over 

[Sort] Zmail 

(Write File] Font Editor 

New [map Over] 

New [map Over] 

Argument to :menu type 

Argument to :menu type menu items can be a 
Argument to 


tv: 
New 


map-resource 13 

map-resource function 14 

mapatoms-all and where-is eliminated 7 

mapatoms-all function 7 

Mapping Available 92 

margin-space-mixin 75 

margin-space-mixin 75 

margin-space-mixin 75 

margin-space-mixin 74 

margin-space-mixin flavor 75 

Meaning of argument changed for 
fs:parse-pathname 32 

Mechanism in Zmacs 125 

Memory Board Not Needed in Lbus Slot 0 136 

menu item 149 

menu item 113 

menu item 151 

menu item 130 

menu item 130 

menu item 130 

menu item 113 

Menu ttem: [reply] 130 

Menu lttem: [select Conversation] 130 

menu items can be a menu or a form 105 

menu or a form 105 

:menu type menu items can be a menu or a 
form. 105 

menu-choose function 149 

message to arithmetic errors: :operands 98 
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New 

‘rename 

:create-screen-array 
:redirect-screen-array 
:adjust-screen-array 

‘rename 

:prompt-and-read 

:clear-screen, :clear-eol, and :clear-eof 
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message to conditions: :special-command-p 74 
message to pathhnames 27 

message to screens 79 

message to screens 79 

message to sheets 79 

message to streams 27 

messages to streams 85 

messages to windows renamed 44 

META key 102 


sys:%count-disk-page-read-operations-in-scavenger 


meter 52 


sys:%count-disk-page-read-operations-in-transporter 


sys:%scavenger-run-time 
sys:%transporter-run-time 
sys:%tv-clock-counter 


Program counter (PC) 
New 

New 

smouse-click 
:special-command-p 
:read-frame 
:write-frame 
smouse-click 
Changes to :mouse-click 
:draw-circle 
:draw-filled-in-circle 
:set-space 


‘space 
:clear-eof 

:clear-eol 
:clear-rest-of-line 
:clear-rest-of-window 
:clear-screen 
:clear-window 
:set-truncate-line-out 
-‘truncate-line-out 

cany-tyi 

sany-tyi-no-hang 
‘finish-typeout 
‘force-rescan 

‘list-tyi 

:mouse-or-kbd-tyi 
:mouse-or-kbd-tyi-no-hang 


:read-bp 


meter 52 
meter 52 
meter 52 
meter 52 ; 
meter:expand-range function 51 
meter:function-name-with-escapes function 52 
meter-function-range function 52 
meter:list-functions-in-bucket function 51 
meter:make-pc-array function 51 
meter:map-over-functions-in-bucket function 52 
meter:monitor-all-functions function 51 
meter:print-functions-in-bucket function 51 
meter:range-of-bucket function 52 
meter:report function 51 
meter:start-monitor function 51 
meter:stop-monitor function 51 
meter:with-monitoring macro 52 
metering 50 
Metering Tools for the 3600 50 
Meters for the LM-2 52 
method 149 
method of condition 74 
method of si:serial-hdic-mixin = 111 
method of si:serial-hdic-mixin = 111 
method of tv:essential-mouse 42 
method of tv:essential-mouse 42 
method of tv:graphics-mixin 99 
method of tv:graphics-mixin 99 
method of tv:margin-space-mixin 75 
method of tv:margin-space-mixin 75 
method of tv:sheet 
method of tv:sheet 
method of tv:sheet 
method of tv:sheet 
method of tv:sheet 
method of tv:sheet 
method of tv:sheet 102 
method of tv:sheet 102 
method of tv:stream-mixin 41, 42 
method of tv:stream-mixin 41 
method of tv:stream-mixin 64 
method of tv:stream-mixin 64 
method of tv:stream-mixin 41 
method of tv:stream-mixin 42 
method of tv:stream-mixin 42 
method of tv:stream-mixin 65 


EEREREE 
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:replace-input 
:rescanning-p 


Some Methods Can Use Combination Type as 
Removing 

:proceed 

Some 


Changes to :tyi, :tyi-no-hang, :list-tyi, 
New 
Current 
Load 
New 
Clicking 
Major and 
New option for defflavor: 
New function: 
Major and Minor 
Interface to the Vadic 


RN Release 5.0 Release Notes 
Symbolics, inc. March 1984 


method of tv:stream-mixin 

method of tv:stream-mixin 

method of tv:stream-mixin 

method of tv:stream-mixin 

method of tv:stream-mixin 

Method Type 83 

methods 53 

methods can now return nif 97 

Methods Can Use Combination Type as Method 
Type 83 


SE8RR 


:mouse-or-kbd-tyi, and :mouse-or-kbd-tyi-no-hang 


methods of tv:stream-mixin 40 

methods of tv:stream-mixin: :start-typeout, :finish- 
typeout, :rescanning-p, :force-rescan, 
:‘replace-input, :read-bp 63 

micro PC (CPC) status information 137 

Microcode FEP command 134 

Microcode in Release 5.0: 270 on 3600, 998 on 
LM-2 3 

Middle Edits Current String in Choose-variable-values 
Windows 105 

Minor mode system 127 

smixture 54 

smixture option 54 

smixture option for defflavor 54 

mod 

mod function 49 

mode system 127 

Modem 111 

modem flavor 111 

modem-error flavor 111 


Known problem: char-upcase and char-downcase undefined for 


Change in Zmacs command 


Characters with 
meter: 
Show Configuration Command Displays 


Show Status Command Displays 
New option for si:sb-on: 


Receiving 
Modified 
Shifted 
Complement 


Window System Changes Associated with 


Avoid Errors in the 


modified characters 145 
Modified mouse clicks as editor commands 103 
Modified Two Windows (c-X 4) 127 
Modified Two Windows (c-X 4) Zmacs 

command 127 
modifier bits 145 
monitor-all-functions function 51 
More Information 135 
More Information Available on Causes of 

Crashes 137 
MORE processing 113, 114 
More Useful Information 140 
smouse (3600 only) 95 
Mouse characters 102 
mouse clicks 40 
mouse clicks as editor commands 103 
Mouse Clicks Can Now Be Used for Editor 

Commands 103 
Mouse cursor speed 100 
mouse documentation line 113 
Mouse input 42 
Mouse Input 40 
:mouse option for si:sb-on 95 
Mouse Process 149 
Mouse sequence break 95 
smouse symbol 42 
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Changes to 
tv: 
tv: 

New variable: tv: 
tv: 


Changes to :tyi, :tyi-no-hang, :list-tyi, 


Changes to :tyi, :tyi-no-hang, :list-tyi, 


New optional argument to tv: 
tv: 
Previously undocumented variables: sys: 


sys: 
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:zmouse-click method 149 

smouse-click method of tv:essential-mouse 42 

smouse-click method of tv:essential-mouse 42 

mouse-double-click-time variable 103 

*mouse-incrementing-keystates* variable 103 

*mouse-modifying-keystates* 102 

*mouse-modifying-keystates* variable 103 

:mouse-or-kbd-tyi method of tv:stream-mixin 42 

smouse-or-kbd-tyi, and :mouse-or-kbd-tyi-no-hang 
methods of tv:stream-mixin 40 

:mouse-or-kbd-tyi-no-hang method of 
tv:stream-mixin 42 

:mouse-or-kbd-tyi, and 
:mouse-or-kbd-tyi-no-hang methods of 
tv:stream-mixin 40 

mouse-wait 101 

mouse-wait function 101 

mouse-x-scale-array and sys:mouse-y-scale-array 
(LM-2 only) 100 

mouse-x-scale-array variable 100 


Previously undocumented variables: sys:mouse-x-scale-array and sys: 


sys: 
Functions 


Symbols 

New canonical file type: 
New condition flavor: fs: 
fs: 

New special forms: 


New special forms: multiple-value-call and 


Display process 

Default File 

FUNCTION 2 W displays current process 
Logical Pathname 


mouse-y-scale-array (LM-2 only) 100 
mouse-y-scale-array variable 101 
moved from the si package to global: deallocate- 
whole-resource, map-resource 13 
moved to or from global package 9 
mss 126 
Multidimensional Arrays on the 3600 Remember 
Actual Dimensions 78 
multiple-file-not-found 69 
multiple-file-not-found flavor 70 
multiple-value-call and multiple-value-prog! 47 
multiple-value-call special form 47 
multiple-value-progi 47 
multiple-value-prog1 special form 48 


N 
name 148 
Name Changed for Commands in Dired Buffer 126 
name in status line 148 
Name, Type, and Version Now Separated by 
Periods 35 


Symbols in global and keyword packages with the same 


Network 
Network 


names 7 
namespace 143 
Namespace editor 107 
namespace system 1, 107 
NCP 109 


Baby! files with summary-window-format other than t or nil 


Memory Board Not 


neti:reset, neti:enable, and 


neti:reset, 


need to be edited 129 
Needed in Lbus Slot 0 136 
net:find-objects-from-property-list function 143 
neti:disable function 107, 108 
neti:disable replace chaos:reset, chaos:enable, 
and chaos:disable 107 
neti:enabie function 107, 108 
neti:enable, and neti:disable replace chaos:reset, 
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International dial 


DIAL 


Changes to 
Incompatible Changes to 
New Features in 


FEP Version 14: 
FEP Version 15: 
FEP Version 16: 
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chaos:enable, and chaos:disable 107 
neti:reset function 107, 108 
neti:reset, neti:enable, and neti:disable replace 
chaos:reset, chaos:enable, and 
chaos:disable 107 
network 151 
NETWORK A command 114 
NETWORK commands 114 
NETWORK D command = 114 
Network database 107 
NETWORK L command 114 
NETWORK M command = 114 
Network namespace 143 
Network namespace system 
NETWORK Q command 114 
network type 151 
NETWORK X command 114 
Networks 1 
Networks in Release 5.0 107 
Networks in Release 5.0 107 
Networks in Release 5.0 108 
New Buffer-history Mechanism in Zmacs 125 
New canonical file type: :mss 126 
New Choose-variable-values Keywords 76 
New clause for condition-call: :no-error 98 
New condition flavor: fs:multiple-file-not-found 69 
New condition flavor: fs:rename-across-hosts 70 
New data types: :single-float and :double-float 49 
New Default LMFS Translation Table for Sys 
Hosts 119 
New Default Representations for Newest and Oldest 
Logical Pathname Versions 35 
New Defaults for FEP Commands 134 
New descriptions: si:bitscale, si:digitscale, 
si:non-terminating-macro 17 
New error flavors: sys:parse-error and 
sys:parse-ferror 23 
New feature: Flavor Examiner (SELECT X) 114 
New Features 133 
New Features 135 
New Features 136 
New Features Associated with the Input Editor 
(Rubout Handler) 57 
New Features in Lisp in Release 5.0 44 
New Features in Networks in Release 5.0 108 
New Features in the File System in Release 
5.0 120 
New Features in Utilities in Release 5.0 114 
New Features in Zmacs in Release 5.0 124 
New Features in Zmail in Release 5.0 130 
New FEP Commands: Add Disk-type and Clear 
Disk-types 136 
New flavor: tv:margin-space-mixin 74 
New flavors: tv:truncatable-lines-mixin, 
tv-truncating-lines-mixin 102 
New font: fonts:cptfonti 75 
New format directives: “+ and “+ 55 
New format for trace output 96 


1, 107 
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Create 
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New function to be called by reader macros: 
si:read-recursive 8&3 


New function: 
New function: 
New function: 
New function: 
New function: 
New function: 
New function: 
New function: 
New function: 
New function: 
New function: 
New function: 


applyhook 72 
chaos:conn-finished-p 109 
dfioat 49 

eqi 44 

make-package 7 

mod 49 
read-delimited-string 60 
readiine-or-nil 63 
si:patch-loaded-p 70 
si:read-or-end 62 
sys:parse-ferror 24 
undefflavor 53 


New functions: byte, byte-size, byte-position 50 

New functions: si:make-process-queue, si:process- 
enqueue, si:process-dequeue, si:process- 
queue-locker, si:reset-process-queue 71 

New functions: sys:single-float-p, 
sys:double-fioat-p 49 

New initialization list: :after-full-ge 73 

New input editor options: :no-input-save, 
activation, :command, :preemptable 57 

new logical host 37 

New macro: sys:with-open-file-search 69 

New macro: tv:with-mouse-grabbed-on-sheet 74 

New macro: with-input-editing 59 

New message to arithmetic errors: :operands 98 

New message to conditions: 
:special-command-p 74 

New Metering Tools for the 3600 50 

New Meters for the LM-2 52 

New methods of tv:stream-mixin: :start-typeout, 
‘finish-typeout, :rescanning-p, -force- 
rescan, :replace-input, :read-bp 63 

New Microcode in Release 5.0: 270 on 3600, 998 on 
LM-2 3 

New open option: :estimated-length 25 

New open options: :if-exists and 
:if-does-not-exist 25 

New option for defflavor: :mixture 54 

New option for defflavor: 
:required-init-keywords 53 

New option for si:sb-on: :mouse (3600 only) 95 

New optional argument to gc-immediately 98 

New optional argument to read 61 

New optional argument to tv:mouse-wait 101 

New optional arguments to print-notifications 99 

New optional arguments to read-from-string 84 

New optional arguments to string-upcease and 
string-downcase 980 

New options for make-plane: :initial-dimensions, 
‘initial-origins 80 

New reader macro: #B 18 

New Rules for Reading Ambiguous Tokens 19 

New special form: defconstant 45 

New special form: define-symbol-macro 53 

New special form: defpackage 
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New Default Representations for 
New Zmacs command: Source Compare 
Source Compare 
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New special form: format:defformat 56 

New special forms catch and throw replace *catch 
and *throw 14 

New special forms: block and tagbody 46 

New special forms: multiple-value-call and 
multiple-value-prog! 47 

New terminal program (SELECT T) 114 

New variable: cl:*read-default-float-format* 17 

New variable: dbg:*debug-io-override* 74 

New variable: fs:*remember-passwords* 70 

New variable: ge-on 73 

New variable: 
tv:*mouse-modifying-keystates* 102 

New variable: 
tv:cold-load-stream-old-selected-window 74 

New variable: tv:rh-typeout-default 65 

New Zmacs command: Resume Patch (m-X) 124 

New Zmacs command: Source Compare Newest 
Definition (m-X) 124 

New Zmacs command: Start Private Patch 
(m-X) 124 

New Zwei command: Comment Out Region (c-X c-3) 


New Zwei command: Find Files in Tag Table 
(m-X) 125 
New [map Over] Menu Item: [reply] 130 
New [map Over] Menu Item: [select 
Conversation] 130 
:new-version value of open option for :if-exists 25 
Newest and Oldest Logical Pathname Versions 35 


‘ Newest Definition (m-X) 124 


Newest Definition (m-X) Zmacs command 124 


Both default pathnames for Source Compare (m-X) now use 


> 
<proceed methods can now return 
sort predicate should return 


New clause for condition-call: 
New input editor options: 


New descriptions: si:bitscale, si:digitscale, si: 


nil 

Unplugging Lemo Cables Should 
Memory Board 

Inspecting hash arrays of eq hash tables 
tv:set-default-font 

store 

Release 5.0: 


Changes to Converse 
Reprints 
Shifted Mouse Clicks Can 


‘newest version 123 
newest version specifier 35 
nil 97 
nil for equal elements 144 


Babyi files with summary-window-format other than t or 


nil need to be edited 129 
nil not a valid menu item 149 
nil value of open option :if-does-not-exist 25 
:no-error 
:no-input-save option 57 
:no-input-save, :activation, :command, 
:preemptable 5/7 
non-terminating-macro 17 
Nonkeyword form of make-array is obsolete 16 
not a valid menu item 149 
Not Halt the FEP 137 
Not Needed in Lbus Slot 0 136 
not permitted 145 
not supported 149 
not supported on the 3600 145 
Notes and Clarifications 143 
Notes on Operations in Release 5.0 151 
Notifications 117 
notifications 99 
Now Be Used for Editor Commands 103 
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Default Font Format Now Bid 113 
)Configuration.fep Files Are Now Called )Boot.boot 134 
Logical Pathnames Now Hierarchical 35 
#/ and #\ snow identical 19 
Second argument to si:install-microcode now optional 94 
Major-mode-setting Commands Now Query About Updating File Attribute List 126 
:proceed methods can now retum nil 97 
Logical Pathname Name, Type, and Version Now Separated by Periods 35 
LMFS Now Supports Directory Links 120 
Both default pathnames for Source Compare (m-X) now use :newest version 123 
Compiler now warns about implicit progns in loops 82 
float returns a single-precision number 48 
floatp returns t for any floating-point number 49 
: Read rational number in binary 18 
:number option for prompt-and-read 85 
Convert number to single-precision floating-point 48 
Convert number to small flonum 
:number-or-nil option for prompt-and-read 85 
Floating point numbers 1 
Floating-point numbers 48, 49 
Converting numbers to double-precision floating-point 49 
Change in numeric arguments to Copy File (m-X) 124 


Oo O O 
Reading and Printing Character Objects 19 
Deallocating allocated objects of a resource 13 
Forgetting objects remembered by a resource 78 
Flavor tv:preemptable-read-any-tyi-mixin obsolete 43 
Flavors tv:any-tyi-mixin and tv:list-tyi-mixin obsolete 40 
Flavors tv:list-mouse-buttons-mixin and tv:kbd-mouse-buttons-mixin 
obsolete 42 
load-file-list obsolete 39 
Nonkeyword form of make-array is obsolete 16 
Changes to format: ochar 21 
format: ochar function 21 
Octal escape for special characters 17 
Set Package (m-X) offers to create a package 123 
Old PCs (OPC) status information 137 
New Default Representations for Newest and Oldest Logical Pathname Versions 35 
« — oldest version specifier 35 
New option for si:sb-on: :mouse (3600 only) 95 
Previously undocumented variables: sys:mouse-x-scale-array and sys:mouse-y-scale-array (LM-2 
only) 100 
Old PCs (OPC) status information 137 
‘if-does-not-exist option for open 
‘if-exists option for open 25 
Changes to open 24 
‘input value of | open option :direction 24 
:output value of open option :direction 24 
‘probe value of open option :direction 24 
:probe-directory value of | open option :direction 24 
:probe-link value of | open option :direction 24 
Changes to open option :direction 24 
:create value of open option :if-does-not-exist 25 
error value of open option :if-does-not-exist 25 
nil value of | open option :if-does-not-exist 25 
:append value of open option for :if-exists 25 
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error value of 

:new-version value of 
soverwrite value of 

‘rename value of 
srename-and-delete value of 
:supersede value of 
‘truncate value of 

New 


New 

Changes to chaos: 
chaos: 

File 

File 

Probe file 


New message to arithmetic errors: 
3600 select-methods handle 
Release 5.0: 

Notes on 


:activation 

:command 

:direction 

:do-not-echo 
:estimated-length 
:if-does-not-exist 

if-exists 

:mixture 

:no-input-save 

‘pass-through 

:preemptable 

:prompt 

sreprompt 
:required-init-keywords 
summary-window-format Baby! file 
‘input value of open 

:output value of open 

:probe value of open 
:probe-directory value of open 


:probe-link value of open — 


Changes to open 

:create value of open 
‘error value of open 

nil value of open 

:append value of open 
‘error value of open 
:new-version value of open 
:overwrite value of open 
rename value of open 
:rename-and-delete vaiue of open 
:supersede value of open 
‘truncate value of open 
:-byte-size 

:characters 
:create-directories 
sreport-stream 

:mixture 
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open option for :if-exists 25 
open option for :if-exists 25 
open option for :if-exists 25 
open option for :if-exists 25 
open option for :if-exists 25 
open option for :if-exists 25 
open option for :if-exists 25 
open option: :estimated-length 25 
open options 24, 25 
open options: :if-exists and :if-does-not-exist 25 
open-stream 108 
open-stream function 108 
opened for input 24 
opened for output 24 
opening 24 

Opening pathname 24 
:operands 98 
:operation-handied-p and :send-if-handles 81 
Operations and Site Management 151 
Operations in Release 5.0 151 
Optimizing disk allocation 25 
option 57 

option 58 

option 24 

option 22 

option 25 

option 26 

option 25 

option 54 

option 57 

option 22 

option 43, 58 

option 23 

option 23 

option 54 

option 129 

option :direction 24 
option :direction 24 
option :direction 24 
option :direction 24 
option :direction 24 
option :direction 24 
option :if-does-not-exist 25 
option :if-does-not-exist 25 
option :if-does-not-exist 25 
option for :if-exists 25 
option for :if-exists 25 
option for :if-exists 25 
option for :if-exists 25 
option for :if-exists 25 
option for :if-exists 25 
option for :if-exists 25 
option for :if-exists 25 
option for copyf 28 

option for copyf 28 

option for copy# 28 

option for copyf 28 

option for defflavor 54 
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:required-init-keywords 
New 

New 
:displaced-conformally 
:if-does-not-exist 
‘if-exists 

:as-if-band 


:date-or-never 
:decimal-number 
:decimal-number-or-nil 
:delimited-string 
:delimited-string-or-nil 
:delimiter 

:eval-form 
:eval-form-or-end 
:expression 
:expression-or-end 


:number-or-nil 
:past-date 
:past-date-or-never 
:pathname 
:pathname-host 
:pathname-list 
:pathname-or-nil 
sstring 
:string-list 
-string-or-nil 
:string-trim 
:time-interval-or-never 
schaos 
:clock 
disk 
:keyboard 
:mouse 
:unibus 
New 
:space init 
:default-value 
:extension 
sinitial-dimensions 
‘initial-origins 
stype 

New ope 
Second argument to si:install-microcode now 
New 


New 
New 
New 
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option for defflavor 54 
option for defflavor. :mixture 54 
option for defflavor: :required-init-keywords 53 
option for make-array 78 
option for open 25 
option for open 25 
option for print-herald 39 
option for print-herald 39 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read © 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for prompt-and-read 
option for si:sb-on 95 
option for si:sb-on 95 
option for si:sb-on 95 
option for si:sb-on 95 
option for si:sb-on 95 
option for si:sb-on 95 
option for si:sb-on: :mouse (3600 only) 95 
option for tv:margin-space-mixin 75 
option to make-plane 80 
option to make-piane 80 
option to make-pilane 80 
option to make-plane 80 
option to make-plane 80 
option: :estimated-length 25 
optional 94 
optional argument to gc-immediately 98 
Optional argument to mapatoms-all and where-is 
eliminated 7 
optional argument to read 61 
optional argument to tv:mouse-wait 101 
optional arguments to print-notifications 99 
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New 
New 


open . 


Changes to input editor 
New 


New open 
New input editor 


Baby! files with summary-window-format 
New Zwei command: Comment 

Comment 

Character 

File opened for 

New format for trace 

‘editor 

‘read 

:sail 


Logging host 


New [map 
New [map 


fonts 

global 

keyword 

Set Package (m-X) offers to create a 
Symbols moved to or from global 
user 

Set 

Set 

sys:dump-forms-to-file always puts 
format ~\ directives can have 
global 

keyword 

Functions moved from the si 


Changes to 

Symbols in global and keyword 
chaos:send-unc-pkt automatically returns the 
:-input-error-character serial |/O 
:input-xoff-character serial |/O 
:-input-xon-character serial 1/O 
:output-xoff-character serial 1/O 
:output-xon-character serial 1/O 

Stream 
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optional arguments to read-from-string 84 

optional arguments to string-upcase and 
string-downcase 80 

options 24, 25 

options :do-not-echo, :pass-through, :prompt, 
‘reprompt 22 

options for make-plane: :initial-dimensions, 
‘initial-origins 80 

options: :if-exists and :if-does-not-exist 25 

options: :no-input-save, :activation, :command, 
‘preemptable 57 

other than t or nil need to be edited 129 

Out Region (c-X c-;) 125 

Out Region (c-X c-;) Zwei command 125 

output 21 

output 24 

output 96 

output format style 

output format style 

output format style 

Output space 21 

output to file 114 

:output value of open option :direction 24 

:output-xoff-character serial 1/O parameter 109 

:output-xon-character serial |1/O parameter 109 

Overstrike 114 

overwrite value of open option for :if-exists 25 

Over} Menu Item: [reply] 130 

Over] Menu Item: [select Conversation] 130 


io es gee 


package 6 

package 1, 6 

package 1,6 

package 1 

package 9 

package 

Package (m-X) offers to create a package 123 

Package (m-X) Zmacs command 123 

package attribute into binary file 82 

package prefixes 92 

package symbols 9 

package symbols 7 

package to global: deallocate-whole-resource, 
map-resource = 13 

package-declare macro 7 

package-used-by-list function 7 

Packages 1 

Packages 6 

packages with the same names 7 

packet to the free pool 108 

parameter 109 

parameter 109 

parameter 109 

parameter 109 

parameter 109 


parameter 65 
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Changes to Serial 1/O: 
New error flavors: sys: 


New error flavors: sys:parse-error and sys: 
New function: sys: 

sys: 

sys: 

Meaning of argument changed for fs: 


° 
'e 


Changes to input editor options :do-not-echo, 
Suppress prompting for 


New Zmacs command: Resume 
New Zmacs command: Start Private 
Resume 

Start Private 

Changes to Add 


Add 


Parity Recovery and Xon/Xoff Character Setting 109 

parse-error and sys:parse-ferror 23 

parse-error flavor 23 

parse-ferror 23 

parse-ferror 24 

parse-ferror flavor 24 

parse-ferror function 24 

parse-pathname 32 

parse-pathname function 33 

Parsing pathnames 33 

spass-through option 22 

:pass-through, :prompt, :reprompt 22 

passwords 70 

:past-date option for prompt-and-read 85 

spast-date-or-never option for prompt-and-read 8&5 

Patch (m-X) 124 

Patch (m-X) 124 

Patch (m-X) Zmacs command 124 

Patch (m-X) Zmacs command 124 

Patch Changed Definitions (m-X) and Add Patch 
Changed Definitions of Buffer (m-X) 123 

Patch Changed Definitions (m-X) Zmacs 
command 123 


Changes to Add Patch Changed Definitions (m-X) and Add 


Add 


New function: si: 
si: 


Opening 
Source 
Target 


Logical 


Reversible wild 
Wild 

Changes to Logical 
Physical 

sinit canonical 


Patch Changed Definitions of Buffer (m-X) 123 

Patch Changed Definitions of Buffer (m-X) Zmacs 
command 123 

Patch level 70 

patch-loaded-p 70 

patch-loaded-p function 70 

Patches 123 

pathname 24 

pathname 26 

pathname 26 

Pathname completion on VMS 109 

Pathname Name, Type, and Version Now Separated 
by Periods 35 

spathname option for prompt-and-read 85 

pathname translation 35 

pathname translation 35 

Pathname Translations 35 

pathname translations 35 

pathname type removed 35 


New Default Representations for Newest and Oldest Logical 


‘rename message to 

Changes to Host Determination in 
Changes to Logical 

Parsing 

Both default 


Logical 
Init File 
Zmail Init File 


Pathname Versions 35 
:pathname-host option for prompt-and-read 85 
:pathname-list option for prompt-and-read 85 
:pathname-or-nil option for prompt-and-read 85 
Pathnames 1 
pathnames 27 
Pathnames 30 
Pathnames 35 
pathnames 33 
pathnames for Source Compare (m-X) now use 
:newest version 123 
Pathnames Now Hierarchical 35 
Pathnames Standardized 34 
Pathnames Standardized 129 
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Current micro PC (CPC) status information 137 
Macro PC status information 137 
Program counter (PC) metering 50 
Old PCs (OPC) status information 137 
Compiler Performs Style Checking on All Forms 81 
Logical Pathname Name, Type, and Version Now Separated by 
Periods 35 
Inspecting hash arrays of eq hash tables not permitted 145 
Physical pathname translations 35 
pkg-create-package function 7 
3600 Supports leee Single- and Double-precision Floating 
Point 48 
Reader Accepts Common Lisp Floating Point Exponents 17 
Floating point numbers 1 
chaos:send-unc-pkt automatically returns the packet to the free 
pool 108 
Jump to Saved Position (c-X J) Zmacs command 127 
Extract _ position field of a byte-specifier 50 
sort predicate should return nil for equal elements 144 
New input editor options: :no-input-save, :activation, :command, 
:preemptable 57 
:preemptable option 43, 58 
tv: preemptable-read-any-tyi-mixin flavor 43 
Flavor tv: preemptable-read-any-tyi-mixin obsolete 43 
. format ~\ directives can have package prefixes 92 
Select Previous Buffer (c-m-L) Zmacs command 125 
Yanking previous input 22 
Previously Undocumented Feature: Coroutine 
Streams 89 
Previously undocumented function: 
clear-resource 78 
Previously undocumented function: 
describe-system 94 
Previously undocumented function: 
fs:set-logical-pathname-host 38 
Previously undocumented function: 
string-compare 81 
Previously undocumented functions: tv:add-to-system- 
menu-programs-column, 
tv:add-to-system-menu-create-menu 103 
Previously undocumented macro: swapf 82 
Previously undocumented reader macro: # and 
# 
Previously undocumented special form: 
destructuring-bind 77 
Previously undocumented variables: sys:mouse-x- 
scale-array and sys:mouse-y-scale-array 
(LM-2 only) 100 
Ratios read in current ibase and print in current base 19 
Print queue 115 
meter: _print-functions-in-bucket function 51 
:as-if-band option for _print-herald 39 
verbose option for _print-herald 39 
Change in arguments to _—print-herald 39 
print-herald function 39 
Show Hardcopy Status (m-X) replaces chaos:  print-Igp-queue 115 
chaos: _print-ipg-queue function 115 
Symbol print-name quoter 17 
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New optional arguments to 


Changes to Readtable, Reader, and 
Reading and 


New Zmacs command: Start 
Start 


Known 
Known 


Avoid Errors in the Mouse 
Debugger c-M creates a 

Get Common Property Lists 
Display 

FUNCTION 2 W displays current 
si: 


New functions: 


si: 
New functions: si:make-process-queue, si: 


print-notifications 99 

print-notifications function 99 

Printer for Common Lisp 16 

Printing Character Objects 19 

Printing Uninterned Symbols 19 

Private Patch (m-X) 124 

Private Patch (m-X) Zmacs command 124 

Probe file opening 24 

<probe value of open option :direction 24 

sprobe-directory value of open option 
direction 24 

:probe-link value of open option :direction 24 

problem with si:gc-reclaim-immediately 148 

problem: char-upcase and char-downcase undefined 
for modified characters 145 

sproceed methods can now return nil 97 

Process 149 

process 116 

process 143 

process name 148 

process name in status line 148 


process-dequeue function 71 


si:make-process-queue, si:process-enqueue, si: 


process-dequeue, si:process-queue-locker, 
si:reset-process-queue 71 
process-enqueue function 71 
process-enqueue, si:process-dequeue, si:process- 
queue-locker, si:reset-process-queue 71 
process-queue-locker function 71 


New functions: si:make-process-queue, si:process-enqueue, si:process-dequeue, si: 


_ Change in argument to 


MORE 

Compiler now warns about implicit 
Terminal 

New terminal 


Displaying 

Loading Sync 
Communication between 
Invisible blocks in 
Adding 


process-queue-locker, — 
si:reset-process-queue 71 
process-wait-with-timeout 95 
process-wait-with-timeout function 95 
processing 113, 114 
progns in loops 82 
program 1 
program (SELECT T) 114 
Program counter (PC) metering 50 
program counters information 137 
Programs 135 
programs and input editor 63 
progs and dos 78 
prompt 65 
:prompt option 23 


Changes to input editor options :do-not-echo, :pass-through, 


:character option for 

:date option for 

:date-or-never option for 
:decimal-number option for 
:decimal-number-or-nil option for 
:delimited-string option for 
:delimited-string-or-nil option for 
:delimiter option for 

:eval-form option for 
:eval-form-or-end option for 
:expression option for 


‘prompt, :reprompt 22 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
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:expression-or-end option for 
‘font-list option for 

thost option for 

thost-list option for 
:keyword-list option for 
:number option for 
:number-or-nil option for 
:past-date option for 
:past-date-or-never option for 
:pathname option for 
:pathname-host option for 
spathname-list option for 
:pathname-or-nil option for 
‘string option for 

:string-list option for 
:string-or-nil option for 
:string-trim option for 
:time-interval-or-never option for 
Changes to 


Suppress 
compiler:style-checker 

Get Common 
sys:dump-forms-to-file always 


- prompt-and-read 
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prompt-and-read 


prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read 
prompt-and-read function 85 
:prompt-and-read messages to streams 85 
Prompting for input from user 85 

prompting for passwords 70 

property 81 

Property Lists process 143 

puts package attribute into binary file 82 
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Changes to FUNCTION C, FUNCTION M, and FUNCTION 


FUNCTION 
NETWORK 


Major-mode-setting Commands Now 
Disk Format Command Asks Different 
Lock 

Print 

Unlock 


Character 
String 
Symbol print-name 


meter: 
Read 


New optional argument to 


m-SUSPEND selects frame with break 


Q 113 
Q command 113 
Q command 114 
:qbin canonical type 34 
Query About Updating File Attribute List 126 
Question 134 
queue 71 
queue 115 
queue 71 
QUOTE key 116 
quoter 17 
quoter 17 
quoter 17 


R Fed command 113 

Ramifications of Host Colon Change for Baby! 
Files 129 

range-of-bucket function 52 

rational number in binary 18 

Ratios read in current ibase and print in current 
base 19 

read 61 

[Read File] Font Editor menu item 113 

read function 61 

read function for Debugger 116 
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Syntax errors in 
Ratios 
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read functions 23 

read in current base and print in current base 19 
sread output format style 21 

Read rational number in binary 18 


New methods of tv:stream-mixin: :start-typeout, :finish-typeout, :rescanning-p, -force-rescan, :replace- 


New variable: cl: 
cl: 
New function: 


sl: 
si: 


New optional arguments to 
New function: si: 


New function to be called by reader macros: si: 
si: 
Comments for Lisp 


#B 

New 

Previously undocumented 
New function to be called by 
Changes to Readtable, 

New Rules for 


New function: 


readline and 
Common Lisp 
Changes to 


Use 


Changes to Serial I/O: Parity 


Append Conversation By 
Delete Conversation By 
Select All Conversations By 
Select Conversation By 


input, 

: 63 

:read-bp method of tv:stream-mixin 65 - 

*read-default-float-format* 17 

*read-default-float-format® variable 17 

read-delimited-string 60 

read-delimited-string function 60 

*read-extended-ibase-signed-number* variable 20 

*read-extended-ibase-unsigned-number* 
variable 19 

stead-frame method of si:serial-hdic-mixin 111 

read-from-string 84 

read-from-string function 84 

read-or-end 62 

read-or-end function 62 

read-recursive 83 

read-recursive function 83 

reader 83 

Reader Accepts Common Lisp Floating Point 
Exponents 17 

reader macro 18 

reader macro: #B 18 

reader macro: # and # 83 

reader macros: si:read-recursive 83 

Reader, and Printer for Common Lisp 16 

Reading Ambiguous Tokens 19 

Reading and Printing Character Objects 19 

Reading from streams 65 | 

Reading function to use input editor 59 

readline and readiine-trim return additional 
values 62 

readiine function 62 

readiline-or-nil 63 

readline-or-nil function 63 

readline-trim function 62 

readline-trim return additional values 62 

readtable 83 

Readtable, Reader, and Printer for Common Lisp 16 

Receiving blips 40 

Receiving mouse clicks 40 

record-source-file-name function 147 

record-source-file-name instead of (remprop 
symbol ’:source-file-name) 147 

Recovery and Xon/Xoff Character Setting 109 

Recursion in Bound and Default Handlers 
Eliminated 97 

Redefining functions 147 

‘redirect-screen-array message to screens 79 

Redistributed- header fields 130 

References (m-X) Zmail command 130 

References (m-X) Zmail command 130 

References (m-X) Zmail command 130 

References (m-X) Zmail command 130 
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Change case of 

New Zwei command: Comment Out 
Comment Out 

Lowercase Code in 

Uppercase Code in 

Changes to Networks in 

Changes to the FEP in 

Changes to the File System in 
Changes to the Lisp Language and Compiler in 
Changes to Utilities in 

Changes to Zmacs in 

Changes to Zmail in 

Clarifications and Corrections for 
Improvements to Lisp in 
Improvements to Utilities in 
Improvements to Zmacs in 
Improvements to Zmail in 
Incompatible Changes to Lisp in 
Incompatible Changes to Networks in 
incompatible Changes to the File System in 
Incompatible Changes to Utilities in 
Incompatible Changes to Zmacs in 
Incompatible Changes to Zmail in 
New Features in Lisp in 

New Features in Networks in 

New Features in the File System in 
New Features in Utilities in 

New Features in Zmacs in 

New Features in Zmail in 

Notes on Operations in 

New Microcode in 


Backup Tape 


Multidimensional Arrays on the 3600 
New variable: fs: 

fs: 

Forgetting objects 


init canonical pathname type 


Use record-source-file-name instead of 


New condition flavor: fs: 
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region 125 
Region (c-X c-3) 125 
Region (c-X c-;) Zwei command 125 


125 
125 


Region (m-X) Zwei Command 
Region (m-X) Zwei command 
Release 5.0 107 
Release 5.0 
Release 5.0 
Release 5.0 5 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 77 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 5 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 44 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 
Release 5.0 130 
Release 5.0 151 
Release 5.0: 270 on 3600, 998 on LM-2 3 
Release 5.0: Introduction and Highlights 1 
Release 5.0: Notes and Clarifications 143 
Release 5.0: Operations and Site Management 151 
Reliability 151 
{Reload/Retrieve] File System Maintenance menu 
item 151 
Remember Actual Dimensions 78 
*remember-passwords* 70 
*remember-passwords* variable 70 
remembered by a resource 78 
Remove flavor 53 
removed 35 
Removing methods 53 
remprop function 147 
(remprop symbol! ’:source-file-name) 
Rename file 27 
‘rename message to pathnames 27 
‘rename message to streams 27 . 
‘rename value of open option for :if-exists 25 
rename-across-hosts 70 
rename-across-hosts flavor 70 
srename-and-delete value of open option for 
‘if-exists 25 


120 
114 
124 


147 


:Clear-screen, :clear-eol, and :clear-eof messages to windows 


chaos:stream, chaos:close, and chaos-finish 
Changes to 


renamed 44 
renamed 107 
renamef and copyf 26 
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New special forms catch and throw 
neti:reset, neti:enable, and neti:disable 


format directives “@T and “@* 


renamef function 27 

replace *catch and *throw 14 

replace chaos:reset, chaos:enable, and 
chaos:disable 107 

replace “X and “G21 

:replace-input method of tv:stream-mixin 65 


New methods of tv:stream-mixin: :start-typeout, :finish-typeout, :rescanning-p, -force-rescan, 


Show Hardcopy Status (m-X) 
fs:make-logical-pathname-host 
Flavor fs:undefined-logical-pathname-transiation 


si:halt 
New [map Over] Menu ttem: 


meter: 


New Default 


:replace-input, :read-bp 63 
replaces chaos:print-igp-queue 115 
replaces fs:add-logical-pathname-host 37 
replaces 
fs:undefined-logical-pathname-directory 37 
replaces sys:%halt 133 
[reply] 130 
(Reply] Map Over menu item 130 
report function 51 
sreport-stream option for copyf 28 
Representations for Newest and Oldest Logical 
Pathname Versions 35 
Reprints notifications 99 


Changes to input editor options :do-not-echo, :pass-through, :prompt, 


New option for defflavor: 


‘reprompt 22 
sreprompt option 23 
:required-init-keywords 53 
srequired-init-keywords option 54 
:required-init-keywords option for defflavor 54 
‘rescanning-p method of tv:stream-mixin 64 


New methods of tv:stream-mixin: :start-typeout, :finish-typeout, 


chaos: 
neti: 


‘rescanning-p, -force-rescan, :replace-input, 
‘read-bp 63 

Resent- header fields 130 

reset function 107 

reset function 107, 108 


neti:reset, neti:enable, and neti:disable replace chaos: 


neti: 


reset, chaos:enable, and chaos:disable 107 

reset, neti:enable, and neti:disable replace 
chaos:reset, chaos:enable, and 
chaos:disabie 107 


New functions: si:make-process-queue, si:process-enqueue, si:process-dequeue, si:process-queue- 


si: 

Deallocating allocated objects of a 
Forgetting objects remembered by a 
; Dumper 

New Zmacs command: 


readline and readline-trim 
‘proceed methods can now 
sort predicate should 


locker, si: 

reset-process-queue 71 
reset-process-queue function 71 
resource 13 
resource 78 
Restarting and Append-to-tape Default 121 
Resume Patch (m-X) 124 
Resume Patch (m-X) Zmacs command 124 
return additional values 62 
return nil 97 
retum nif for equal elements 144 


intern, intern-local, intern-soft, and intern-local-soft 


chaos: 
Use edr with focatives 
Change in type of array 


float 


return two values 7 
Return-keyboard-to-lisp FEP command 137 
return-pkt function 108 
returned by locf 148 
returned by string-append 16 
Returning control from input editor 57 
retums a single-precision number 48 
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floatp 
chaos:send-unc-pkt automatically 


New variable: tv: 
tv: 


Incompatible Changes to the Input Editor 

New Features Associated with the Input Editor 
string-length uses same coercion 

New 


:draw-filled-in-circle uses 

Using copy-array-portion on the 
string-length uses 

Symbols in global and keyword packages with the 
Jump to 

:chaos option for si: 

:clock option for si: 

:disk option for st: 

:keyboard option for si: 

‘mouse option for si: 

:unibus option for sl: 

si; 

New option for si: 

sys: 

Complement 

:create-screen-array message to 
sredirect-screen-array message to 
tv: 

tv: 


CHNCP.GSF global 
New [map Over] Menu Item: 


New terminal program 


New feature: Flavor Examiner 
3600 
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returns t for any floating-point number 49 
returns the packet to the free pool 108 
Reversible wild pathname translation 35 
RFC822 domain addressing 130 

Ric822 Domain Addressing Supported 130 
th-typeout-default 65 
th-typeout-default variable 65 
Round-robin locking 71 

tplaca can be used with stack lists 148 
tpiaca function 148 

splacd function 148 

Rubout handler 1, 22 

(Rubout Handler) 21 

(Rubout Handler) 57 

rules as string 16 

Rules for Reading Ambiguous Tokens 19 


S exponent identifier 17 

:sail output format style 21 

same algorithm as :draw-circle 99 

same array 145 

same coercion rules as string 16 

same names 7 

Saved Position (c-X J) Zmacs command 127 
sb-on 95 


sb-on 95 

sb-on 95 

sb-on 95 

sb-on 95 

sb-on 95 

sb-on function 95 

sb-on: :mouse (3600 only) 95 

%scavenger-run-time meter 52 

screen 113 

screens 79 

screens 79 

scroll-maintain-list function 105 

scroll-maintain-list init function can take 
arguments 105 

Second argument to si:install-microcode now 
optional 94 

section 109 

Select All Conversations By References (m-X) Zmail 
command 130 

Select Buffer (c-X B) Zmacs command 125 

Select Conversation By References (m-X) Zmail 
command 130 

{select Conversation] 130 

[Select Conversation] Map Over menu item 130 

Select Previous Buffer (c-m-L) Zmacs 
command 125 

SELECT T command 114 

(SELECT T) 114 

SELECT X command 114 

(SELECT X) 114 

select-methods handle :operation-handied-p and 
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tv: 
Improvements to make-system: error-restart, 
m-SUSPEND 


Keyword Symbols Are 


:send-if-handies 8! 
select-or-create-window-of-flavor function 104 
selective transformations 94 
selects frame with break read function for 

Debugger 116 
Self-evaluating 13 
SEND 109 


3600 select-methods handle :operation-handled-p and 


chaos: 
chaos: 


chaos: 

Continue Command 
Logical Pathname Name, Type, and Version Now 
Token 

Chaosnet 

Clock 

Disk 

Keyboard 

Mouse 

FEP Supports Hdic 
Hdic 
:input-error-character 
:input-xoff-character 
:input-xon-character 
:output-xoff-character 
:output-xon-character 
Changes to 


:read-frame method of si: 
:write-frame method of si: 
si: 


zwei: 

tv: 

tv: 

Previously undocumented function: fs: 


:send-if-handies 81 

send-pkt function 108 

send-unc-pkt automatically returns the packet to the 
free pool 108 

send-unc-pkt function 108 

Sends an All-keys-up Character to Lisp 137 

Separated by Periods 35 

separators 17 

sequence break 95 

sequence break 95 

sequence break 95 

sequence break 95 

sequence break 95 

Serial /O 133 

Serial |/O on the 3600 110 

serial 1/O parameter 109 

serial 1/O parameter 109 

serial 1/O parameter 109 

serial 1/O parameter 109 

serial 1/O parameter 109 

Serial 1/O: Parity Recovery and Xon/Xoff Character 
Setting 109 

serial-hdic-mixin — 111 

serial-hdic-mixin = 111 

serial-hdic-stream flavor 110 

Set Package (m-X) offers to create a package 123 

Set Package (m-X) Zmacs command 123 

*get-attribute-updates-list* variable 126 

set-default-font function 149 

set-default-font not supported 149 

set-logical-pathname-host 38 

set-logical-pathname-host function 38 

:set-space method of tv:margin-space-mixin 75 

set-syntax-from-description function 18 

:set-truncate-line-out method of tv:sheet 102 


Changes to Serial 1/O: Parity Recovery and Xon/Xoff Character 


Streams 

:clear-eof method of tv: 

:clear-eol method of tv: 
:clear-rest-of-line method of tv: 
:clear-rest-of-window method of tv: 
:clear-screen method of tv: 
:clear-window method of tv: 
:set-truncate-line-out method of tv: 
struncate-line-out method of tv: 
:adjust-screen-array message to 
Binary left 


Setting 109 
sharing common buffers 89 
sheet 44 
sheet 44 
sheet 44 
sheet 44 
sheet 44 
sheet 44 
sheet 102 
sheet 102 
sheets 79 
shift 17 
Shifted Mouse Clicks Can Now Be Used for Editor 
Commands 103 
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cl; short-float format 17 
Unplugging Lemo Cables Should Not Halt the FEP 137 
sort predicate should return nil for equal elements 144 
Show Configuration Command Displays More 
Information 135 
Show Configuration FEP command 135 
Show File FEP command 134 
Show Hardcopy Status (m-X) replaces 
chaos:print-igp-queue 115 
Show Hardcopy Status (m-X) Zwei command 115 
Show Status Command Displays More Useful 
Information 140 
Show Status FEP command 137, 140 
Functions moved from the si package to global: deallocate-whole-resource, 
map-resource 13 
si:*read-extended-ibase-signed-number* 
variable 20 
si:*read-extended-ibase-unsigned-number* 
variable 19 
si:*trace-bar-p* variable 97 
si:*trace-bar-rate* variable 97 
si:*trace-columns-per-level* variable 97 
si:*trace-old-style* variable 97 
si:alphabetic syntax description 18 
si:bitscale 17 
New descriptions: _ si:bitscale, si:digitscale, 
si:non-terminating-macro 17 
si:break syntax description 18 
si:circlecross syntax description 18 
si:coroutine-bidirectional-stream flavor 92 
si:coroutine-input-stream flavor 92 
si:coroutine-output-stream flavor 92 
New descriptions: si:bitscale, _si:digitscale, si:non-terminating-macro 17 
si:doublequote syntax description 18 
si:full-ge function 73 
Known problem with _ si:gc-reclaim-immediately 148 
si:gc-reclaim-immediately variable 148 
si:halt function 133 
si:halt replaces sys:%halt 133 
si:install-microcode function 94 
Second argument to __ si:install-microcode now optional 94 
si:macro syntax description 18 
si:make-coroutine-bidirectional-stream 
function 91 
si:make-coroutine-input-stream function 91 
si:make-coroutine-output-stream function 91 
si:make-process-queue function 71 
New functions: si:make-process-queue, si:process-enqueue, 
si:process-dequeue, si:process-queue- 
locker, si:reset-process-queue 71 
si:make-serial-stream function 110, 111 
si:modem flavor 111 
si:modem-error flavor 111 
New descriptions: si:bitscale, si:digitscale, si:non-terminating-macro 17 
New function:  si:patch-loaded-p 70 
si:patch-loaded-p function 70 
si:process-dequeue function 71 
New functions: si:make-process-queue, si:process-enqueue, 
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New functions: si:make-process-queue, 
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si:process-dequeue, si:process-queue- 
locker, si:reset-process-queue 71 
si:process-enqueue function 71 
si:process-enqueue, si:process-dequeue, 
si:process-queue-locker, 
si:reset-process-queue 71 
si:process-queue-locker function 71 


New functions: si:make-process-queue, si:process-enqueue, si:process-dequeue, 


New function: 
New function to be called by reader macros: 


si:process-queue-locker, 

si:reset-process-queue 71 
si:read-or-end 62 
si:read-recursive 83 
si:read-recursive function 83 


New functions: si:make-process-queue, si:process-enqueue, si:process-dequeue, 


:chaos option for 
:clock option for 
:disk option for 
:keyboard option for 
:mouse option for 
:unibus option for 


New option for 
:read-frame method of 
-write-frame method of 


sl: 
3600 Supports ieee 


New data types: 
cl: 
sys: 
New functions: sys: 
IEEE-standard 
Convert number to 
float returns a 
:validate-Imfs-dump-tapes 


Release 5.0: Operations and 
Extract 

si: 

Memory Board Not Needed in Lbus 


Convert number to 


Both default pathnames for 


si:process-queue-locker, 
si:reset-process-queue 71 

si:reset-process-queue function 71 

si:sb-on 95 

si:sb-on 95 

si:sb-on 95 

si:sb-on 95 

si:sb-on 95 

si:sb-on 95 

si:sb-on function 95 

si:sb-on: :mouse (3600 only) 95 

si:serial-hdic-mixin 111 

si:serial-hdic-mixin 111 

si:serial-hdic-stream flavor 110 

si:single syntax description 18 

si:slash syntax description 18 

si:verticalbar syntax description 18 

si:whitespace syntax description 18 

single syntax description 18 

Single- and Double-precision Floating Point 48 

Single-character symbol 18 

:single-float and :double-float 49 

single-float format 17 

single-float-p function 49 

single-fioat-p, sys:double-float-p 49 

single-precision 48 

single-precision floating-point 48 

single-precision number 48 

site attribute 121 

Site Configuration for Dialnet 151 

Site Management 151 

size field of a byte specifier 50 

slash syntax description 18 

Slot O 136 

Small flonum 49 

small flonum 48 

Some Methods Can Use Combination Type as 
Method Type 83 

sort function 144 

sort predicate should return nil for equal 
elements 144 

Sorting by Conversations Available 130 

{Sort] Zmail menu item 130 

Source Compare (m-X) now use :newest 
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version 123 
Source Compare (m-X) Zwei command 123 
Source Compare Newest Definition (m-X) 124 
Source Compare Newest Definition (m-X) Zmacs 
command 124 
Source pathname 26 


Use record ectircasils riame instead of (remprop symbol ’ 


Output 
Trim leading and trailing white 


Octal escape for 
Change in Debugger 
block 

catch 
condition-bind 
condition-call 
condition-call-if 
condition-case 
defconstant 
define-symbol-macro 
defpackage 
destructuring-bind 
format:defformat 
multiple-value-call 
multiple-value-prog! 
store 


tagbody 

throw 

trace 

unadvise 
with-stack-list 
with-stack-list* 
New 

New 

New 

Previously undocumented 
New 

New 


New 
New 


New message to conditions: 


** accordion wildcard 

« oldest version 

> newest version 

Create a byte 

Extract size field of a byte 
Mouse cursor 


rplaca can be used with 
Init File Pathnames 
Zmail Init File Pathnames 
New Zmacs command: 


:source-file-name) 147 

space 21 

space 62 

:space init option for tv:margin-space-mixin 75 

:space method of tv:margin-space-mixin 75 

special characters 17 

special command for fs:directory-not-found 98 

special form 46 

special form 14 

special form 97 

special form 98 

special form 98 

special form 98 

special form 45 

special form 53 

special form 7 

special form 77 

special form 56 

special form 47 

special form 48 

special form 145 

special form 47 

special form 15 

special form 96 

special form 40 

special form 148 

special form 148 

special form: defconstant 45 

special form: define-symbol-macro 53 

special form: defpackage 7 

special form: destructuring-bind 77 

special form: format:defformat 56 

special forms catch and throw replace *catch and 
*throw 14 

special forms: block and tagbody 46 

special forms: multiple-value-call and 
multiple-value-progi 47 

:special-command-p 74 

:special-command-p method of condition 74 

specification 120 

specifier 35 

specifier 35 

specifier 50 

specifier 50 

speed 100 

Stack lists 148 

Stack lists 148 

Standardized 34 

Standardized 129 

Start Private Patch (m-X) 124 

Start Private Patch (m-X) Zmacs command 124 
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meter: 
New methods of tv:stream-mikxin: 


Show Hardcopy 
Show Hardcopy 
Show 


Show 

Current micro PC (CPC) 

Macro PC 

Old PCs (OPC) 

FUNCTION 2 W displays current process name in 
h-c-upper-left waits for Lisp to 

meter: 

h-c-upper-left 


Synonym 
chaos: 


chaos: 


:any-tyi method of tv: 
:any-tyi-no-hang method of tv: 
‘finish-typeout method of tv: 
‘force-rescan method of tv: 
‘list-tyi method of tv: 
:mouse-or-kbd-tyi method of tv: 
:mouse-or-kbd-tyi-no-hang method of tv: 
:read-bp method of tv: 
:replace-input method of tv: 
:rescanning-p method of tv: 
:start-typeout method of tv: 

:tyi method of tv: 

:tyi-no-hang method of tv: 


start-monitor function 51 
:start-typeout method of tv:stream-mixin 63 
:start-typeout, :finish-typeout, :rescanning-p, 
‘force-rescan, :replace-input, :read-bp 63 
Status (m-X) replaces chaos:print-Igp-queue 115 
Status (m-X) Zwei command 115 
Status Command Displays More Useful 
Information 140 
Status FEP command 
status information 137 
status information 137 
status information 137 
Status line 148 
stop itself 140 
stop-monitor function 51 
stops execution of Lisp 133 
store not supported on the 3600 145 
store special form 145 
stream 20 
stream function 107 
Stream parameter 65 
stream, chaos:close, and chaos:finish 


137, 140 


renamed 107 
stream-mixin 41, 42 
stream-mixin 41 


stream-mixin 64 
stream-mixin 64 
stream-mixin 41 
stream-mixin 42 
stream-mixin 42 
stream-mixin 65 
stream-mixin 65 
stream-mixin 64 
stream-mixin 63 
stream-mixin 41 
stream-mixin 41 


Changes to :tyi, :tyi-no-hang, :list-tyi, :mouse-or-kbd-tyi, and :mouse-or-kbd-tyi-no-hang methods of 


New methods of tv: 


:prompt-and-read messages to 

‘rename message to 

Previously Undocumented Feature: Coroutine 
Reading from 


string-length uses same coercion rules as 


Clicking Middle Edits Current 


Change in type of array returned by 


Previously undocumented function: 


tv: 

stream-mixin 40 

stream-mixin: :start-typeout, :finish-typeout, 
:rescanning-p, ‘force-rescan, :replace-input, 


read-bp 63 


streams 65 

Streams sharing common buffers 89 
string 16 

String concatenation 16 

String construction 65 

string function 16 

String in Choose-variable-values Windows 105 
string option for prompt-and-read 85 
String quoter 17 

string-append 16 

string-append function 16 
string-compare 8! 

string-compare function 81 


210 


RN Release 5.0 Release Notes 


New optional arguments to string-upcase and 


New optional arguments to 


editor output format 
‘read output format 
:sail output format 
Controlling typeout 
Compiler Performs 
compiler: 


Babyl files with 


Rfc822 Domain Addressing 
tv:set-default-font not 
store not 

LMFS Dumper 

LMFS Now 

FEP 

3600 


Previously undocumented macro: 


END and c-END 

:mouse 

Single-character 

Use record-source-file-name instead of (remprop 


#: 

External 

global package 
Internal 

keyword package 
Printing Uninterned 
Uninterned 
Keyword 


#: 
Loading 
Load 


si:alphabetic 
si:break 
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string-downcase 8&0 

string-downcase function 80 

string-length function 16 

string-length uses same coercion rules as 
string 16 

sstring-list option for prompt-and-read 85 

:string-or-nil option for prompt-and-read 85 

:string-trim option for prompt-and-read 85 

string-upcase and string-downcase 980 

string-upcase function 80 

style 21 

style 21 

style 21 

style 65 

Style Checking on All Forms 81 

style-checker property 81 

Submenu 105 

Subpackages 6 

summary-window-format Baby! file option 129 

summary-window-format other than t or nil need 
to be edited 129 

Supdup 1 

SUPER key 102 

Superpackages 6 

ssupersede value of open option for :if-exists 25 

Supported 130 

supported 149 

supported on the 3600 145 

Supports Accordion Wildcards 119 

Supports Directory Links 120 

Supports Hdic Serial 1/0 133 

Supports leee Single- and Double-precision Floating 
Point 48 

Suppress prompting for passwords 70 

swapf 82 

swapf macro 82 

swapped in Converse 116 

symbol 42 

symbol 18 

symbol ’:source-file-name) 147 

Symbol! print-name quoter 17 

symbol-syn-stream 20 

symbols 6 

symbols 9 

symbols 6 

symbols 7 

Symbols 19 

symbols 19 

Symbols Are Selff-evaluating 13 

Symbols in global and keyword packages with the 
same names 7 

Symbols moved to or from global package 9 

syn-stream 20 

Sync Programs 135 

Sync-program FEP command 

Synonym stream 20 

syntax description 18 

syntax description 18 


134, 135 
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si:circlecross 
si:doublequote 
si:macro 
si:single 
si:slash 
si:verticalbar 


si:whitespace 
Character 


New Default LMFS Translation Table for 


si:halt replaces 


New functions: sys:single-float-p, 


How to use the 
Previously undocumented variables: 


syntax description 18 

syntax description 18 

syntax description 18 

syntax description 18 

syntax description 18 

syntax description 18 

syntax description 18 

syntax descriptions 17 

Syntax errors in read functions 23 

Sys Hosts 119 

sys:%count-disk-page-read-operations-in- 
scavenger meter 52 

sys:%count-disk-page-read-operations-in- 
transporter meter 52 

sys:%halt 133 

sys:%halt function 133 

sys:%scavenger-run-time meter 52 

sys:%transporter-run-time meter 52 

sys:%tv-clock-counter meter 52 

sys:arithmetic-error flavor 98 

sys:defsubst-with-parent macro 145 

sys:double-float-p 49 

sys:double-float-p function 49 

sys:dump-forms-to-file always puts package 
attribute into binary file 82 

sys:function-parent declaration 145 

sys:function-parent declaration 145 

sys:mouse-x-scale-array and sys:mouse-y-scale- 
array (LM-2 only) 100 

sys:mouse-x-scale-array variable 100 


Previously undocumented variables: sys:mouse-x-scale-array and 


New error flavors: 


New error flavors: sys:parse-error and 
New function: 


New functions: 
New macro: 


Carry tape 

File 

Major and Minor mode 

Network namespace 

Window 

Changes to the File 
Incompatible Changes to the File 
New Features in the File 
[Reload/Retrieve] File 


sys:mouse-y-scale-array (LM-2 only) 100 
sys:mouse-y-scale-array variable 101 
syS:parse-error and sys:parse-ferror 23 
sys:parse-error flavor 23 
sys:parse-ferror 23 
sys:parse-ferror 24 
sys:parse-ferror flavor 24 
sys:parse-ferror function 24 
sys:single-filoat-p function 49 
sys:single-float-p, sys:double-float-p 49 
sys:with-open-file-search 69 
sys:with-open-file-search macro 69 
system 1 
System 1 
system 127 
system 1, 107 
System Changes Associated with Mouse Input 40 
System in Release 5.0 119 
System in Release 5.0 119 
System in Release 5.0 120 
System Maintenance menu item 151 
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SELECT 

floatp returns 

Babyl files with summary-window-format other than 
New terminal program (SELECT 

New Zwei command: Find Files in Tag 
Find Files in Tag 

New Default LMFS Translation 
Inspecting hash arrays of eq hash 
New Zwei command: Find Files in 
Find Files in 

New special forms: block and 


tv:scroll-maintain-list init function can 
Backup 


Carry 
Comparing backup 


Imlac 


- New 
Baby! files with summary-window-format other 


T 
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T 
T command 114 
t for any floating-point number 49 
t or nil need to be edited 129 
T) 114 
Table (m-X) 125 
Table (m-X)) Zwei command 125 
Table for Sys Hosts 119 
tables not permitted 145 
Tag Table (m-X) 125 
125 


Tag Table (m-X)) Zwei command 
tagbody 46 


tagbody special form 47 
take arguments 105 

Tape Reliability 151 

tape system 1 

tapes 151 

Target pathname 26 
Teinet 1 

terminal codes 114 
Terminal program 1 
terminal program (SELECT T) 
than t or nil need to be edited 


114 
129 


New special forms catch and throw replace *catch and 


New special forms catch and 


New Rules for Reading Ambiguous 
New Metering 


New format for 


si: 
si: 
si: 
si: 
Trim leading and 


*throw 14 
throw replace *catch and *throw 
throw special form 15 
stime-interval-or-never option for 
prompt-and-read 85 


14 


Token separators 17 
Tokens i9 
Tools for the 3600 50 
TOPS-20 34 


trace output 96 

trace special form 96 

*trace-bar-p* variable 97 
*trace-bar-rate* variable 97 
*trace-columns-per-level* variable 97 
*trace-old-style* variable 97 

trailing white space 62 


Improvements to make-system: error-restart, selective 


Reversible wild pathname 
Wild pathname 

New Default LMFS 

Changes to Logical Pathname 
Physical pathname 

sys: 


tv: 
New flavors: tv: 


New flavors: tv:truncatable-lines-mixin, tv: 


tv: 


transformations 94 
translation 35 
translation 35 
Translation Table for Sys Hosts 
Translations 35 
translations 35 
%transporter-run-time meter 52 
Trim teading and trailing white space 62 
truncatable-lines-mixin flavor 102 
truncatable-lines-mixin, 
tv:truncating-lines-mixin 102 
truncate value of open option for :if-exists 25 
struncate-line-out method of tv:sheet 102 
Truncating lines 102 
truncating-lines-mixin 102 
truncating-lines-mixin flavor 
truncating-window flavor 102 


119 


102 
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sys: 
New variable: 
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%tv-clock-counter meter 52 
tv:*mouse-incrementing-keystates* variable 103 
tv:*mouse-modifying-keystates* 102 
tv:*mouse-modifying-keystates* variable 103 


Previously undocumented functions: tv:add-to-system-menu-programs-column, 


Previously undocumented functions: 
Flavors 


New variable: 


:mouse-click method of 

Changes to :mouse-click method of 
:draw-circle method of 
:draw-filled-in-circle method of 


Flavors tv:list-mouse-buttons-mixin and 
Flavors 


Flavors tv:any-tyi-mixin and 
:set-space method of 
:space init option for 

:space method of 

New flavor: 


New optional argument to 


Flavor 
New variable: 


:clear-eof method of 

:clear-eol method of 
:clear-rest-of-line method of 
:clear-rest-of-window method of 
:clear-screen method of 
:clear-window method of 
:set-truncate-line-out method of 
:‘truncate-line-out method of 
sany-tyi method of 
zany-tyi-no-hang method of 
‘finish-typeout method of 


tv:add-to-system-menu-create-menu 103 
tv:add-to-system-menu-create-menu function 104 
tv:add-to-system-menu-programs-column 

function 104 
tv:add-to-system-menu-programs-column, 

tv:add-to-system-menu-create-menu 103 
tv:any-tyi-mixin and tv:list-tyi-mixin obsolete 40 
tv:any-tyi-mixin flavor 40 
tv:cold-load-stream-old-selected-window 74 
tv:cold-load-stream-old-selected-window 

variable 74 
tv:edit-namespace-object function 107 
tv:essential-mouse 42 
tv:essential-mouse 42 
tv:graphics-mixin 99 
tv:graphics-mixin 99 
tv:kbd-mouse-buttons-mixin flavor 42 
tv:kbd-mouse-buttons-mixin obsolete 42 
tv:list-mouse-buttons-mixin and tv:kbd- mouse- 

buttons-mixin obsolete 42 
tv:list-mouse-buttons-mixin flavor 42 
tv:list-tyi-mixin flavor 40 
tv:list-tyi-mixin obsolete 40 
tv:margin-space-mixin 75 
tv:margin-space-mixin 75 
tv:margin-space-mixin 75 
tv:margin-space-mixin 74 
tv:margin-space-mixin flavor 75 
tv:menu-choose function 149 
tv:mouse-double-click-time variable 103 
tv:mouse-wait 101 
tv:mouse-wait function 101 
tv:preemptable-read-any-tyi-mixin flavor 43 
tv:preemptable-read-any-tyi-mixin obsolete 43 
tv:rh-typeout-default 65 
tv:rh-typeout-default variable 65 
tv:scroll-maintain-list function 105 
tv:scroll-maintain-list init function can take 

arguments 105 
tv:select-or-create-window-of-flavor function 104 
tv:set-default-font function 149 
tv:set-default-font not supported 149 
tv:sheet 44 
tv:sheet 44 
tv:sheet 44 
tv:sheet 44 
tv:sheet 44 
tv:sheet 44 
tv:sheet 102 
tv:sheet 102 
tv:stream-mixin 41, 42 
tv:stream-mixin 41 
tv:stream-mixin 64 
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‘force-rescan method of 

:list-tyi. method of 

:mouse-or-kbd-tyi method of 
smouse-or-kbd-tyi-no-hang method of 
:read-bp method of 

:replace-input method of 
srescanning-p method of 
:start-typeout method of 

ctyi method of 

‘tyi-no-hang method of 
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tv:stream-mixin 64 
tv:stream-mixin 41 
tv:stream-mixin 42 
tv:stream-mixin 42 
tv:stream-mixin 65 
tv:stream-mixin 65 
tv:stream-mixin 64 
tv:stream-mixin 63 
tv:stream-mixin 41 
tv:stream-mixin 41 


Changes to :tyi, :tyi-no-hang, :list-tyi, :mouse-or-kbd-tyi, and :mouse-or-kbd-tyi-no-hang methods of 


New methods of 


New flavors: 


New flavors: tv:truncatable-lines-mixin, 


New macro: 


tv:stream-mixin 40 
tv:stream-mixin: :start-typeout, -finish-typeout, 
srescanning-p, :force-rescan, :replace-input, 
read-bp 63 
tv:truncatable-lines-mixin flavor 102 
tv-truncatable-lines-mixin, 
tv:truncating-lines-mixin 102 
tv-truncating-lines-mixin 102 
tv:truncating-lines-mixin flavor 102 
tv:truncating-window flavor 102 
tv:with-mouse-grabbed-on-sheet 74 
tv:with-mouse-grabbed-on-sheet macro 74 


intern, intern-local, intern-soft, and intern-local-soft return 


Change in Zmacs command Modified 
Modified 


Changes to 


Changes to :tyji, 


ep file 

‘bin canonical 

‘lisp canonical 
:qbin canonical 
DIAL network 


Some Methods Can Use Combination 
Font Editor file 

Argument to :menu 

Change in 


‘init canonical pathname 
Logical Pathname Name, 
New canonical file 
Controlling 

‘ Definition 

New data 


two values 7 

Two Windows (c-X 4) 127 

Two Windows (c-X 4) Zmacs command 127 

styi method of tv:stream-mixin 41 

styi, :tyi-no-hang, :list-tyi, :mouse-or-kbd-tyi, and 
:mouse-or-kbd-tyi-no-hang methods of 
tv:stream-mixin 40 

styi-no-hang method of tv:stream-mixin 41 

styi-no-hang, :list-tyi, :mouse-or-kbd-tyi, and 
smouse-or-kbd-tyi-no-hang methods of 
tv:stream-mixin 40 

type 134 

type 34 

type 34 

type 34 
151 


ty 
Some Methods Can Use Combination Type as Method 


Type 8&3 
Type as Method Type 83 
type defaults 113 
type menu items can be a menu or a form 105 
type of array returned by string-append 16 
stype option to make-plane 80 
type removed 35 
Type, and Version Now Separated by Periods 35 
type: :mss 126 
typeout style 65 
types 145 
types: :single-float and :double-float 49 
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Change in arguments to 
New function: 


‘Known problem: char-upease and ¢har-downcase 


unadvise 39 

unadvise special form 40 
undefflavor 53 

undefflavor function 53 

undefined for modified characters 145 


Flavor fs:undefined-logical-pathname-transiation replaces fs: 


fs: 
Flavor fs: 


Previously 
Previously 
Previously 
Previously 


Previously 
Previously 


Previously 
Previously 
Previously 
Previously 


Printing 


Major-mode-setting Commands Now Query About 


Shifted Mouse Clicks Can Now Be 
mplaca can be 

Show Status Command Displays More 
Prompting for input from 

Changes to Input Editor 


Arguments changed for fs: 
fs: 

:draw-filled-in-circle 
string-length 


Changes to 
Improvements to 
incompatible Changes to 
New Features in 


undefined-logical-pathname-directory 37 
undefined-logical-pathname-transiation flavor 37 
undefined-logical-pathname-translation replaces 

fs:undefined-logical-pathname-directory 37 
Undocumented Feature: Coroutine Streams 89 
undocumented function: clear-resource 78 
undocumented function: describe-system 94 
undocumented function: 

fs:set-logical-pathname-host 38 
undocumented function: string-compare 81 
undocumented functions: tv:add-to-system-menu- 

programs-coilumn, 

tv:add-to-system-menu-create-menu 103 
undocumented macro: swapf 82 
undocumented reader macro: # and # 83 
undocumented special form: destructuring-bind 77 
undocumented variables: sys:mouse-x-scale-array 

and sys:mouse-y-scale-array (.M-2 

only) 100 
:unibus option for si:sb-on 95 
Uninterned symbols 19 
Uninterned Symbols 19 
UNIX 34 
Unlock queue 71 
Unplugging Lemo Cables Should Not Halt the 

FEP 137 
Updating File Attribute List 126 
Uppercase Code in Buffer (m-X) Zwei command 125 
Uppercase Code in Region (m-X) Zwei 

command 125 
Used for Editor Commands 103 
used with stack lists 148 
Useful Information 140 


user 85 
User Interface 22 
user package 1,6 


user-homedir and fs:init-file-pathname 34 
user-homedir function 34 

uses same algorithm as. :draw-circle 99 
uses same coercion rules as string 16 
Utilities 1 

Utilities in Release 5.0 113 

Utilities in Release 5.0 116 

Utilities in Release 5.0 113 

Utilities in Release 5.0 114 


216 RN Release 5.0 Release Notes 
Symbolics, inc. March 1984 


V V V 


Vadic autodialer 151 
Interface to the Vadic Modem 111 
nil nota valid menu item 149 
_  validate-imfs-dump-tapes site attribute 121 
‘input value of open option :direction 24 
soutput value of open option :direction 24 
sprobe value of open option :direction 24 
:probe-directory value of open option :direction 24 
sprobe-link value of open option :direction 24 
:create value of open option :if-does-not-exist 25 
‘error value of open option :if-does-not-exist 25 
nil value of open option :if-does-not-exist 25 
sappend value of open option for :if-exists ~ 25 
“error value of open option for :if-exists 25 
:new-version value of open option for :if-exists 25 
overwrite value of open option for :if-exists 25 
‘rename value of open option for :if-exists 25 
:rename-and-delete value of open option for :if-exists 25 
‘supersede value of open option for :if-exists 25 
‘truncate value of open option for :if-exists 25 
intern, intern-local, intern-soft, and intern-local-soft return two 
values 7 
readline and readline-trim retum additional values 62 
applyhook variable 72 
cl:*read-default-float-format* variable 17 
dbg:*debug-io-override* variable 74 
format:*format-output* variable 56 
fs:*remember-passwords* variable 70 
gc-on variable 73 
inhibit-idle-scavenging-flag variable 148 
si:*read-extended-ibase-signed-number*® variable 20 
si:*read-extended-ibase-unsigned-number* variable 19 
si:*trace-bar-p* variable 97 
si:*trace-bar-rate* variable 97 
si:*trace-columns-per-level* variable 97 
si:*trace-old-style* variable 97 
si:gc-reclaim-immediately variable 148 
sys:mouse-x-scale-array variable 100 
sys:mouse-y-scale-array variable 101 
tv:*mouse-incrementing-keystates* variable 103 
tv:*mouse-modifying-keystates* variable 103 
tv:cold-load-stream-old-selected-window variable 74 
tv:mouse-double-click-time variable 103 
tv:rh-typeout-default variable 65 
zwei:*converse-end-exits* variable 116 
zwei:*set-attribute-updates-list* variable 126 
New variable: cl:*read-default-float-format* 17 
New variable: dbg:*debug-io-override* 74 
New variable: fs:*remember-passwords* 70 
New variable: ge-on 73 
New variable: tv:*mouse-modifying-keystates* 102 
New _ variable: 
| tv:cold-load-stream-old-selected-window 74 
New _ variable: tv:rh-typeout-default 65 
Previously undocumented _— variables: sys:mouse-x-scale-array and sys:mouse- 
y-scale-array (LM-2 only) 100 
sverbose option for print-herald 39 
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Both default pathnames for Source Compare (m-X) now use :newest 


FEP 
FEP 
FEP 
FEP 
FEP 
FEP 
FEP 
FEP 
Logical Pathname Name, Type, and 
« oldest 
> newest 


version 123 

Version 14: New Features 133 
Version 15: Improvements 135 
Version 15: Incompatible Changes 133 
Version 15: New Features 135 
Version 16: improvements 137 
Version 16: New Features 136 
Version 17: Improvements 140 
Version 18: improvements 140 
Version Now Separated by Periods 35 
version specifier 35 

version specifier 35 


New Default Representations for Newest and Oldest Logical Pathname 


si: 


Directory creation on 
Pathname completion on 
Changes to 


FUNCTION 
FUNCTION 2 


h-c-upper-left 
Compiler now 


What happens 
Optional argument to mapatoms-all and 


Trim leading and trailing 
si: 
bitbit 


Reversible 


** accordion 

Accordion 

LMFS Accordion 

LMFS Dumper Supports Accordion 
Complement 

Delete contents of 

Delete to end of 

Erase 

Erase to end of 


WwW 


Versions 35 
verticalbar syntax description 18 
VMS 34 
VMS 109 
VMS 109 
VMS Chaosnet 109 


Ww 
Wcommand 148 
W displays current process name in status line 148 
W Fed command 113 
waits for Lisp to stop itself 140 
warms about implicit progns in loops 82 
What happens when you cold boot 143 
when you cold boot 143 
where-is eliminated 7 
where-is function 7 
white space 62 
whitespace syntax description 18 
width from the destination array 145 
Wild pathname translation 35 
wild pathname translation 35 
wwild-inferiors 120 
Wildcard Directory Mapping Available 92 
wildcard specification 120 
wildcards 1 
Wildcards 120 
Wildcards 119 
window 113 
window 44 
window 44 
window 44 
window 44 
Window System Changes Associated with Mouse 
input 40 


Clicking Middie Edits Current String in Choose-variable-values 


Change in Zmacs command Modified Two 
Modified Two 


Windows 105 
Windows (c-X 4) 127 
Windows (c-X 4) Zmacs command 127 


:clear-screen, :clear-eol, and :clear-eof messages to 


New macro: 


windows renamed 44 
with-input-editing 59 
with-input-editing macro 59 
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meter: with-monitoring macro 52 
New macro: tv: with-mouse-grabbed-on-sheet 74 
tv: with-mouse-grabbed-on-sheet macro 74 
New macro: sys: with-open-file-search 69 
sys: with-open-file-search macro 69 
with-stack-list special form 148 
with-stack-list* special form 148 
Load World FEP command 134 
(Write File) Font Editor menu item 113 
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1. Introduction 


These release notes accompany Release 5.1. They describe changes made since 
Release 5.0. This patch release fixes some problems and improves performance in 
some areas. Only the visible changes are mentioned here. 


This document contains information relevant to both the LM-2 and the 3600. 
However, some sections apply to only one or the other. Section headings indicate 
such cases. 


1.1 New microcode: 998 on LM-2, 292 on 3600 


Release 5.1 uses microcode version 998 on the LM-2 and 292 on the 3600. 
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2. Improvements 


2.1 c-ABORT can now be typed while entering Debugger (3600 only) 


The cover letter sent out with Release 5.0 (dated 1 May 1984) stated: 


3. Do not type c-ABORT while your machine is entering the 
debugger or Lisp may halt the next time that you enter the 
debugger. This will be fixed in a future release. 


As of Release 5.1, this restriction no longer applies. 


2.2 LMFS Backups (LM-2, 3600) 


In Release 5.0, backups, especially to remote tapes, might not work. Some of the 
data on the tapes might be damaged even though the files could be backed up and 
restored. Release 5.1 fixes this bug. 


2.3 Serial I/O (3600 only) 


Sometimes, serial I/O would hang or would not complete. This has been fixed in 
Release 5.1. 
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3. Installation Instructions (3600 Only) 


The 5.1 software tape contains patch files, the merged sources for the patched 
definitions, new microcode, and additional examples that were not in the 5.0 
distribution tape. 


To load the distribution tape, follow these instructions. 


1. At a Lisp Listener, evaluate the following two forms: 


(fs:define-canonical-type :sync-program “sync” 
(:unix “sn* “sync” ) 
(:unix42 “sync” “sn") 
(:vms “syn")) 


(defprop :sync-program 8 :binary-file-byte-size) 
2. Place the distribution tape in a cartridge tape drive of a 3600. 


3. Load the contents of the Release 5.1 tape by typing the following form toa 
Lisp Listener: 
(dis: load-distr ibution-tape) 


"Where to get distribution tape" menu pops up; indicate tape host (if remote) 
and click on [Do It]. 


"Items to be loaded" menu pops up; click on [Do It]. The files start loading. 


4. After the contents of the tape have been loaded onto your sys host, type: 


(si: install-microcode 292.) 


5. Shut your machine down by typing the following forms: 
( logout) 
(si:halt) 

6. Boot the machine using microcode 292. 


7. Evaluate these two forms: 
(fs:define-canonical-type :sync-program “sync” 
(:unix “sn" “sync”) 
(:unix42 “sync” “sn") 
(:vms “syn")) 


(defprop :sync-program 8 :binary-file-byte-size) 
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8. Type the following form: 


( load-and-save-patches ) 


This will cause the machine to log in as user LISP-MACHINE, load the 
patches, and disk-save the world. You will need a world load file approximately 
20% larger than your current world. 


Note: Please be sure to (load-and-save-patches) into all worlds that are built on 
Release 5.0. If you have a Release 5.0 Macsyma world, for example, be sure to 
load-and-save-patches in that world as well as in any other 5.0-based worlds you 
are using. 


Release 5.2 Bulletin 


This document may not be reproduced in whole or in part without the prior written 
consent of Symbolics, Inc. 


Printed in the USA. 


Copyright © 1984 
Symbolies, Inc. 
All Rights Reserved 


Release 5.2 Bulletin 
# 


September 1984 


This document corresponds to Release 5.2. 


This document was prepared by the Home Office Software Support Group of Symbolics, 
Inc. 


The software described in this document is furnished only under license, and may be 
used or copied only in accordance with the terms of such license. 


Nothing contained in this document should be construed to imply the granting of a 
license to make, use, or sell any of the equipment or software described herein. 


Symbolics, Inc. makes no representation that the connection of its products in the 
manner described in this document will not infringe existing or future patent rights. 


The information in this book is subject to change without notice, and should not be 
construed to imply any representation or commitment by Symbolics, Inc. 


Symbolics, Symbolics 3600, Symbolics 3640, Symbolics 3670, Zetalisp, and 
MACSYMA are trademarks of Symbolics, Inc. 


This document may not be reproduced in whole or in part without the prior written 
consent of Symbolics, Inc. 


Printed in the USA. 


Copyright © 1984 
Symbolics, Inc. 
All Rights Reserved 


Printing year and number: 87 86 85 84 987654321 


O Om © db ke 


Table cf Contents 


Patch for Fast draw-string Microcode in 5.2 
Patch for make-system in 5.2 
Patch for si:ascii-translating-input-stream-mixin whopper in 5.2 
Use of Simple ASCII Printers with 5.2 
New Microcode Types 
Disk Configurations with Release 5.2 
6.1 Systems with 280 Mbytes or More 
6.2 Systems with 167-Mbyte Disks 
6.3 Systems with 140-Mbyte Disks (Model 3640s) 
Running out of Room 
7.1 LMFS vs FEP File System 
7.2 World Loads 
7.3 Local File Space 
7.4 Paging Space 
Keeping track of bug reports at the customer site 
8.1 Instructions for the Lisp Machine user 
8.2 Instructions for the site administrator 


September 1984 


A 
3 


OMAIAIDNN Og a» aoa ak © bh bY bw he 


tut 


Release 5.2 Bulletin 


NOTE: To add these patches to your world, enter them into an editor buffer, 
making sure that you specify the correct package for each, compile the file, boot a 
clean world, and load the file before disk-saving. 


1 Patch for Fast draw-string Microcode in 5.2 


The new fast draw-string microcode in Release 5.2 contains an error which causes 
the system to go into an infinite loop when displaying certain multi-font lines in the 
editor. Compiling the following patch will cure this problem. You must compile this, 

rather than evaluate it. 


tv:(deff %draw-string-internal-that-doesnt-work 
(function tv:%draw-string- internal )) 


tv: 
(defun %draw-string-internal (array alu x y string font index limit xlim) 
(multiple-value-bind (new-x new-index done-p) 
(%draw-string-internal-that-doesnt-work 
array 
alu 
x 
y 
string 
font 
index 
limit 
xlim) 
(when (and (not done-p) 
(< new-index limit) 
(= (+ new-x (font-char-width font)) xlim)) 
(%draw-char-internal font 
(Idb %%ch-char 
(aref string new- index) ) 
new-x 
y 
alu 
array) 
(setq new-x xlim) 
(incf new- index) 
{setq done-p (= new-index limit))) 
(values new-x new-index done-p))) 
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2 Patch for make-system in 5.2 


If a system in 5.2 is defined using logical pathnames, make-system is incapable of 
detecting whether or not they have changed since they were loaded last. 
Consequently, it will load all the binary files of the system every time. To cure this 
problem, compile the following form into the system: 

$i: 

(defun system-get-loaded-id (file) 

(let ((info (get-file-loaded-id file *force-package*) )) 
(when info 
(cons (send (car info) :translated-pathname) 
(cdr info))))) 


3 Patch for si:ascii-translating-input-stream-mixin whopper in 5.2 


In 5.2 the following method is defined to accept no arguments. This causes an error 
to occur when it receives one from a calling function. Enter the function with the 
following changes and then compile it into your world to avoid this error. 
Si: 
(defwhopper (ascii-translating-input-stream-mixin :tyi) (&optional eof) 
(let((ch (continue-whopper eof) )) 
(selectq ch 
(10 #\bs) 
(11 #\tab) 
(12 #\lTine) 
(14 #\ff) 
(15 (let ((ch1 (continue-whopper eof) )) . 
(unless (or (null chi) (= chl 12)) (send self :untyi ch1))) 
#\cr) 
(177 #\rubout) 
(t ch)))) 


4 Use of Simple ASCIil Printers with 5.2 


With 5.2, the use of simple ASCII printers is supported. To hook up your ASCII 
printer for use with the hardcopy system, do the following: 


1. Physically connect your ASCII printer to your Lisp Machine through the serial 
port, making sure that the RS-232 connection is correct. Both the printer and 
the computer are DTE, making the use of a "null modem" necessary. This 
connector switches several signals , allowing bidirectional communication. Note 
that the Lisp Machine must also receive DTR from the printer. (See page 
23-24 of the NETIO document for RS-232 pin assignments.) 


September 1984 2 


2. Create a printer object in your site namespace with type ASCII and interface 
SERIAL. Below is an example of some of the information shown by 
tv:edit-namespace-object for an ASCII printer. The printer’s name is Erie. 


Printer: ERIE 

Type: ASCII 

Site: FISHERY 

Pretty Name: "Lake Erie” 

Interface: SERIAL 

Host: TENNESSEE 

Interface Options: Set: Pair: UNIT 1 Pair: BAUD 300 Pair: NO-BANNER-PAGE T 


DpIt Logo: SYMBOLICS 


Some of these attributes are optional. See page 13 of the PROT document for 
an explanation of printer attributes. 


3. Edit the host object of the Lisp Machine to which you have attached the 
printer and add the following attributes: (NOTE: Use "LGP" as shown, even 
though the printer is not an Laser Graphics Printer.) 


Service: Set: HARDCOPY-STATUS CHAOS LGP-QUEUE 
Service: Set: HARDCOPY CHAOS LGP 
Spooled Printer: Pair: ERIE 


-where ERIE is the name of your printer as defined above. You can also edit 
the Default Printer attribute to make your ASCII printer the default printer 
for your site, if you wish. Save out this new namespace information. 


4. Create a top-level directory on the host machine for the printer called 
Print-spooler. Using the above example, the directory would be 
Tennessee: >print-spooler >. 


5. Now boot a clean world and type the following to a Lisp listener: 


(si:login-to-sys-host) 
(make-system ’print) 


and then disk-save. When you boot this new world, your ASCII printer 
should be accessible. 


5 New Microcode Types 


The logical directory sys: l-ucode; now includes multiple types of microcode for each 
version number. The correct microcode to install depends upon the particular 
hardware configuration of your machine. When your machine is shipped, the default 
microcode filename is correct, but if your machine is upgraded (for example, an FPA 
board is installed) you might need to override the default used by 
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si:install-microcode to get the correct type for your configuration. Below is an 
example of how you would get the microcode for a 3600 running 5.2, with no console 
upgrade but an FPA board installed: 


(si:install-microcode “tmc5-fpa-mic.mic.296") 


The correct microcode types for each system and hardware configuration are shown 
below. In this table, n indicates the version of microcode that is required; the 
version number must be followed by a period (.). Microcode version 296. is required 
for Release 5.2. 


Machine Type: 3600 3670 3640 
-standard configuration tmc5-mic.mic.na tmc5-i04-mic.mic.n tmc5-104-st506-mic.mic.n 
-with console upgrade tmc5-i04-mic.mic.n not applicable not applicable 

(1/0 rev. 6) 
-with FPA board tmc5-fpa-mic.mic.n tmc5-104-fpa-mic.mic.n tmc5-i04-st506-fpa-mic.mic.n 
-with both console tmc5-i04-fpa-mic.mic.n not applicable not applicable 


upgrade and FPA board 


If you use the wrong microcode for your configuration, your machine will not boot, 
except in the case where your system has an FPA and you use a non-FPA 
microcode. In this case, the machine will function normally, but will not make use 
of the FPA at all. 


6 Disk Configurations with Release 5.2 


Symbolics 3600-family systems shipped with Release 5.2 on their disks have new disk 
configurations. The disk configuration with which the system is shipped depends on 
the amount of disk space available on that particular machine. There are three 
basic disk configurations: 


1. Systems that have at least 280 Mbytes of disk storage 
2. Systems with a 167-Mbyte disk drive 


3. Systems with a 140-Mbyte disk drive (currently, 3640 systems only) 
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6.1 Systems with 280 Mbytes or More 


These systems contain a 49K-block file system partition (>LMFS.FILE), a 60K-block 
paging file, and a 30K-block world load file. They have a complete set of sources and 
online documentation on the disk, so no tapes are provided unless they are ordered 
with the machine. 


6.2 Systems with 167-Mbyte Disks 


These systems contain a 10K-block file system partition (>LMFS.FILE), a 60K-block 
paging file, and a 30K-block world load file. These systems have a minimal set of 
sources, which are sufficient to permit you to operate in a stand-alone configuration, 
with a modest amount of disk space available for user files. The full system sources 
and online documentation are not available on the disk but are included on tapes 
shipped with the system. These tapes cannot be loaded successfully onto the 3640. 
Instead, they should be loaded onto a file server that has room for the 41 Mbytes of 
information they contain. There ts not enough disk space on these systems to support 
full sources and documentation while maintaining two large world loads. 


6.3 Systems with 140-Mbyte Disks (Model 3640s) 


These systems contain a 30K-block world load, a 45K-block paging partition, and a 
30K-block auxiliary paging partition, which is sometimes used as a world load file. 
These paging files are used differently than on previous machines. In particular, the 
procedure for transferring bands and for creating new worlds with disk-save is very 
different. Please see section 1.3 of the Release 5.2 Patch Notes for further details. 
These systems are shipped with source and documentation tapes, which can be 
loaded onto a file server with space for the 41 Mbytes of information they contain. 
These tapes cannot be successfully loaded onto the system itself. 


7 Running out of Room 


7.1 LMFS vs FEP File System 


There are two file systems available on the Lisp Machine: the Lisp Machine File 
System (LMFS) and the FEP File System (FEP FS). LMFS is a general purpose, 
highly flexible file system, suitable for everyday use. Currently, only the Lisp 
Machine processor understands how to operate on LMFS files. The FEP FS is a 
simple, basic file system that both the Lisp Machine and Front End processors 
understand how to access. The FEP FS is used mainly to store world loads, 
microcode loads, paging files, boot files, and file system partitions that LMFS uses to 
store its structure and data. The FEP FS is not a good place for users to store 
their files; that is what LMFS is for. 


September 1984 5 


7.2 World Loads 


Sometimes disk-save or si:receive-band might inform you that you have run out 
of FEP file system space. For 280- and 167-Mbyte systems, you should delete and 
expunge old, unneeded world loads, and then resume from the disk-save "out of 
room" error or retry the si:receive-band operation. You should not delete any 
world loads from a 140-Mbyte system. See section 1.3 of the Release 5.2 Patch Notes 
for details. 


It is wise to keep a large (25K-30K), noncritical world load on the Lisp Machine’s 
disk, where it is available for disk-restore to use in case all world loads become 
nonfunctional. This will also help reserve space for the installation of Release 6.0. 

If you do not reserve that space, you may end up overwriting valuable world loads in 
order to install Release 6.0. 


7.3 Local File Space 


Sometimes, writing a file out to a Lisp Machine File System (LMFS) will produce an 
"out of room" error. This means that the present allocation of that particular LMFS 
is not large enough to accommodate your request for space. It might help to 
expunge directories with deleted files in.them, and it may help to delete extra, 
unneeded versions of files, using the Zmacs command Dired (m-x). 


If you still don’t have enough space after you have deleted and expunged the 
unnecessary files, you might consider creating an auxiliary file partition. You should 
only consider doing so on systems that have at least 280 Mbytes of storage. There 
is no room in the FEP file system to allocate an auxiliary file partition for 140-Mbyte 
systems, and allocating an auxiliary file partition on a 167-Mbyte system might 
inhibit the creation of large world loads or even prevent the installation of Release 
6.0. 


Even for 280-Mbyte systems, you are trading off world load space for file space when 
you create auxiliary partitions. Be sure to reserve enough FEP file system space for 
two large world loads (about 60K blocks): the world you are currently running from 
and a spare world load for disk-restore to use. 


See the section "Multiple Partitions" in the document Files for details on how to 
create auxiliary file partitions. Once you have created an auxiliary file partition, you 
should never delete it. Deleting it would lose all the data contained in that partition 
and make the entire Lisp Machine File System unusable. 


7.4 Paging Space 


Programs that use large amounts of virtual memory may require you to allocate 
additional paging space, to perform better or to perform at all. Only systems with at 
least 280 Mbytes of disk storage really have enough room to permit additional paging 
files to be allocated without adversely affecting the maintenence of worlds on the 
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machine. In order to add an additional paging file to your virtual memory set, you 
must first create a FEP file. Below is a function that creates a FEP file of a given 
length. 


(defun create-fep-file (name length) 
(with-open-file (stream name :direction :block :if-exists :error) 
(send stream :allocate length))) 


The code below creates an additional 20K-block paging file on unit zero, using the 
above function: 


(create-fep-file “fep0:>pagel.page” 20000.) 


After creating the extra paging file, any boot files should be modified to use this new 
paging partition. A typical boot file might look something like this: 


clear machine 

lead microcode >tmc5-mic.mic.292 
load world >Release-5-1. load 
set chaos 401 

start 


After creating the new paging partition, boot files should be edited to look something 
like this: 


clear machine 
load microcode >tmc5-mic.mic.292 
load world >Release-5-1. load 
clear paging 

add paging >page.page 

add paging >pagel.page 

set chaos 401 

Start 


It is safe to delete extra paging partitions, but only if they are not in active use. Be 
sure to cold boot by hand, and do not type the Add Paging command for the extra 
paging partition you intend to delete. 


8 Keeping track of bug reports at the customer site 


Note: This pertains to all Release 5.0, 5.1, 5.2, and later installations. 


Symbolies is currently developing a means for automatically forwarding bug reports 
from the local site to Symbolics customer service via a variety of networks. Although 
this facility is not yet fully in place, we would like to institute a procedure for the 
user to collect and submit bug reports that will both accomodate present needs and 
provide for later enhancement. 


Included below are instructions for both the user and the site administrator on how 
to report bugs, and how to set up the framework for collecting these bug reports 

and transmitting them to Symbolics. 
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8.1 Instructions for the Lisp Machine user 


For the purposes of this discussion, Lisp Machine bugs have been divided into two 
categories: those that cause the Lisp Machine to enter the debugger and those that 
indicate that something "just didn’t work". 


Suppose you entered a form and were thrown into the debugger with the following 
error message and prompt: 


>>Trap: The argument given to the CAR instruction, :STRAWBERRY, 
was not a list, a locative, or NIL. 


[possibly followed by some proceed options, and then the debugger 
prompt, which is a right-pointing arrow. ] 


At the debugger prompt, you should type the debugger command e-M. This inserts 
a stack history and some information about the loaded software environment into an 
editor buffer and prompts for a description of what you were doing at the time. You 
should type in the description of the problem and a phone number where you can be 
reached. When done, press the END key. This sends the bug report, and you are 
placed back in the debugger. You can then inspect the stack, return from some 
frame, abort the computation, view arguments or perform a variety of operations. 
For more information on the debugger, see the DEBUG document. 


Here’s another (fictitious) example of a bug where something "just doesn’t work": 


Suppose you typed (print-disk-label) and the function immediately returned NIL 
without having printed cut any information on the disk label at all. 


First, jot down as much as you can remember in the way of unusual circumstances. 
Had the machine been warm-booted? Were you using a locally improved version of 
print-disk-label? 


Secondly, see if the bug is reproducible. Unless, of course, it’s something like "the 
robot arm attachment went through the wall.” 


If it seems that the bug is worth reporting, then use the Zmacs m-xX EUG command 
to send mail about the problem. This will prompt you to enter a completion of the 
mailing list name "BUG-". Since LISPM is the default, just hit a carriage return to 
send it to BUG-LISPM. This will put you at the top of an editor buffer, which 
contains information about your system. You should enter your description of what 
you were doing when the error occurred and any information about your 
configuration which may be pertinant (ex. the type of disk you have, if it is a disk 
problem). Also enter your name and where you can be reached. When you feel 
comfortable with the bug report, hit END to send it. You may be prompted for a 
message subject, should be a one-line quick description of the problem, for example, 
"print-disk-label doesn’t print anything at all." 


At this point vou are back in the editor, and can go back to whatever you were 
doing before noticing the error. 
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8.2 Instructions for the site administrator 


If the Lisp Machine(s) at the site are networked to a timesharing system that 
provides mail service, set up a mailbox on the timesharing service to receive bug 
reports. Name the mailbox BUG-LISPM and have it route mail to a file, which can 
then be printed, dumped to tape, or whatever you chose to do with it. 


Suppose the name of the timeshared host at site FISHERY is Pepper and that it is 
the only mail server at the site. You should then edit the site object for the 
FISHERY site, using the namespace editor: 


(tv:edit-namespace-object :site “FISHERY"”) 


You would then click left on the Token field following the Host-for-bug-reports field 
in the object, type Pepper, press RETURN, and then click on the Save menu item to 
save your change. Finally, after the change has been saved, leave the namespace 
editor by clicking on the Quit menu item. 


The site administrator should periodically use the mail program on the mail serving 
machine to study the contents of the BUG-LISPM mailbox. Bug reports that are 
related to a site-developed program should be answered or forwarded to the 
appropriate mail address within the site. Questions that can be answered by the 
site administrator should be so answered. All of the other messages in the file 
should be conveyed to Symbolics by either printed or magnetic media. If there is 
some doubt about whether a given bug exists in a site-developed program or in 
Symbolics software, send the bug report to Symbolics. 


The exact mechanism by which the bug reports are sent from the customer to 
Symbolics Software Support is something to be negotiated by the customer and the 
Symbolics contact. 
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1. Installation Instructions for Release 5.2 


1.1. Introduction to Installation Instructions 


This section describes installation instructions in two parts: the first part explains 
procedures for installing Release 5.2 on 3600s and 3670s, and the second part 
explains procedures for installing Release 5.2 on 3640s. 


Before beginning any new site installation, you must have registered your site in a 
global site registry administered by Symbolics. To register your site, please contact 
Symbolics Software Support at 617-577-7500 (effective July 1984). 


1.2 Installation Instructions (3600 and 3670 Only) 
The 5.2 software tape contains patch files, the merged sources for the patched 
definitions, new source files, and new microcode. 


Adding the 5.2 patches increases the size of your world by about 8000 blocks, so 
before you load these patches you might want to edit your FEP directories to make 
sure you have enough room to disk save the resulting world. 


To load the distribution tape, follow these instructions. 


1. Place the distribution tape in a cartridge tape drive of a 3600 or 3670. 


2. Load the contents of the Release 5.2 tape by typing the following form to a 
Lisp Listener: 


(dis: load-distr ibution-tape) 


Where to get distribution tape menu pops up; indicate tape host (if remote) 
and click on [Do It]. 


Items to be loaded menu pops up; click on [Do It]. The files start loading. 


3. After the contents of the tape have been loaded onto your sys host, type: 


(si: install-microcode 296.) 
Be sure to type the decimal point after the 296. 
4. To install the software, you must first adjust the prewired virtual address 


space of the world load that you wish to update to Release 5.2. At a Lisp 
Listener, type: 
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(load “sys:patch;fixup-world")  . 
Loading SYS: PATCH; FIXUP-WORLD.LISP.NEWEST into package SYSTEM-INTERNALS 
World load file for wired space adjustment (default = FEPO:>current world): 


Specify the name of the world load to alter. The default is the current world 
(the one that you booted from). When this patch finishes loading, the 
prewired virtual address space has been adjusted. 


5. Shut your machine down by typing the following forms: 


~ (logout) 
(si:halt) 


6. Boot the altered world using microcode 296. Perhaps the easiest way to do 
this is to look at the contents of your boot file with the FEP Show File 
command (which defaults to >Boot.boot). Manually enter the same boot file 
commands, replacing the old microcode pathname with the new. For example, 
instead of entering the command: 


Load microcode >tmc5-mic.mic.292 


Enter the following command: 


Load microcode >tmc5-mic.mic.296 


7. Log in as user LISP-MACHINE: 
(si: login-to-sys-host) 


8. Load patches (which causes the world to grow about 8000 blocks): 
(load-patches :noselective) 


If the resulting world is too large, you might want to use the form 

(si:full-ge :gc-compiled-functions t) , which should reduce the size of the 
world load by about 8000 blocks. This might result in a small loss of 
performance on machines with only one memory board (due to loss of locality). 


9. Save the world: 
(disk-save) 


Note: Please be sure to alter the prewired space, load patches, optionally do a full 
garbage collection (use si:full-gc), and disk save in all worlds that you wish to 
upgrade to Release 5.2. If you have a Release 5.1 MACSYMA world, for example, be 
sure to alter the prewired space, load patches, and disk save in that world as well as 
in any other 5.1-based worlds you are using. 
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1.3 Installation Instructions (3640 Only) 


Since the 140 megabyte disk drive of the 3640 contains a smaller paging partition 
than the 3600 or 3670, you must manage your. 3640 FEP file system differently. 
For a complete description of paging partitions: See the section "Disk Partitions". 


This section describes the different procedures that you follow to manipulate paging 
space when you are doing the following things: 
e Loading the world 


e Customizing and saving that world load 


e Saving future world loads 


The disk of your 3640 already contains Release 5.2, so you do not have to load the 
distribution tape. 


The Release 5.2 distribution disk contains the 5.2 distribution world, a large paging 
file (called Page.page), and an auxiliary file that is the same size as the 5.2 
distribution world. You use the auxiliary file in one way for normal operation and in 
another way when putting a new world on the disk. 


In normal operation, you boot a world load file and use both Page.page and the 
auxiliary file for paging. In this case, you call the auxiliary file Aux.Page. 


When you want to create a new world or transfer a new world to the disk, you boot 
your world load file and use only Page.page for paging. Instead of using the 
auxiliary file for paging, you rename it and use it as the target of your disk-save or 
receive-band. Once you have successfully created the new world, you rename the 
old world load file to Aux.page and use it as your auxiliary paging file. 


The auxiliary file is always actively in use, either as: 
e A paging file (in normal operation) 


¢ The target file for new world load 


1.3.1 Customizing and Saving the World 


The shipped configuration assumes the auxiliary file to be the receptacle for your 
site’s customized world load and so contains just one paging file: 


Release-5-2-DIST.LOAD.1 30,000 
Aux. Page.1 30,000 
Page.Page.1 45,000 


A customized, normal configuration uses the auxiliary file as a paging file and so 
contains two paging files: 
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Current-world. oad 30,000 
Aux.Page.1 30,000 
Page .Page.1 45,000 


To create your customized world, follow these instructions: 


1. 


Boot the distribution world using microcode 296. Use only Page.Page.1 for 
paging and reserve the auxiliary file. It is best to initially boot by hand rather 
than to use the boot file so that you can set your Chaos address: 


Clear Machine 

Load Microcode microcode-file-name 

Load World world-load-file-name 

Clear Paging 

Add Paging >Page.Page 

Set Chaos-Address this-machine’s-chaos-address 
Start 


. Rename the auxiliary file to whatever name you wish, for example: 


(renamef “FEP:>Aux.Page.1" “FEP:>new-world.load.1") 


. Customize the booted world and then save it into your new world load file: 


(disk-save “FEP:new-world. load.1") 


Since you are asking to save the world into an existing file, you are prompted 
for an action with which to proceed. The correct answer is Overwrite. You 
are then asked if you want to update the boot file. Answer yes. The Set 
Chaos line that you typed is added to the boot file at this time. 


. Rename the distribution world to be the auxiliary file: 


(renamef “FEP: >Release-5-2-DIST.LOAD.1” “FEP: >Aux.Page.1”) 


. At this point, you should edit the boot file, FEP:>Boot.boot, to add the 


auxiliary file as an additional paging file. After the line Add Paging >Page.Page, 
add: 


Add Paging >Aux.Page 


Your edited boot file should look like this: 


Clear Machine 

Load Microcode microcode-file-name 

Load World world-load-file-name 

Clear Paging 

Add Paging >Page.Page 

Add Paging >Aux.Page . 

Set Chaos-Address this-machine’s-chaos-address 
Start 


Save the edited version. 
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6. Log out and halt the machine. 


7. Boot the new world using the boot file. 


1.3.2 Saving Subsequent Worlds 


Whenever you wish to create a new world on your 3640 disk, you must follow a 
similar procedure to that shown above. 


1. Boot manually, and do not type the Add Paging >Aux.Page command: 


Clear Machine 

Load Microcode microcode-file-name 

Load Korld world-load-file-name 

Clear Paging 

Add Paging >Page.Page 

Set Chaos-Address this-machine’s-chaos-address 
Start 


2. Rename the auxiliary file to whatever name you wish, for example: 
(renamef “FEP:>Aux.Page.1" “FEP:>Newer-world.load.1") 


3. Either customize the booted world and then save it into your new world load 
file, or else transfer the world from some other machine: 


(disk-save "FEP:>Newer-world .load.1") 


or: 


(si:receive-band “other-machine-name" 
"remote-band-name" "FEP:>Newer-world.load.1") 


Since you are asking to save the world into an existing file, you are prompted 
for an action with which to proceed. The correct answer is Overwrite. Then 
you are asked if you want to update the boot file. Answer yes. 


4. Rename the old world to the auxiliary file: 
(renamef "FEP:>Old-world.LOAD.1" “FEP:>Aux.Page.1") 


5. Log out and halt the machine. 


6. Boot the machine using the new boot file. 


Release 5.2 Patch Notes 
Symbolics, Inc. August 1984 


Release 5.2 Patch Notes 7 
Symbolics, Inc. August 1984 


2. Release 5.2: Introduction and Highlights 


These notes accompany the release of Release 5.2. They describe changes made 
since Release 5.0. The changes are organized in the following sections. Within each 
section, the material is organized into incompatible changes, new features, and 
improvements. 


Changes to the Lisp Language in Release 5.2 
This section describes changes relevant to the Lisp language. 


Changes to Zmacs in Release 5.2 
This section describes changes in the Zmacs editor. 


Changes to Utilities in Release 5.2 
This section describes changes in what any other computer would 
call the operating system and utilities. This includes the 
Debugger, the Inspector, the garbage collector, network support, 
and various system keyboard features. 


Changes to the User Interface in Release 5.2 
This section describes changes to the user interface, including the 
window system. 


Changes to Zmail in Release 5.2 
This section describes changes in the Zmail mail reading and 
sending program. 


Changes to the File System in Release 5.2 
This section describes changes in the Lisp Machine file system. 


Changes to Networks in Release 5.2 
This section describes changes in network implementation, 
interface, and protocols. 


Changes to the FEP in Release 5.2 
This section describes changes in the FEP. Release 5.2 requires 
FEP version number 18 or higher. 


Changes to Tape and Disks in Release 5.2 
| This section describes changes in the distribution tape program 
and the addition of the carry tape system and tape spec 
prompting. 


Release 5.2: Operations and Site Management 
This section describes changes to the system and site 
configuration features of the system. These changes are 
important to the people who are responsible for the software at 
each site. 


Release 5.2: Notes and Clarifications 
This section contains explanations and clarifications of items that 
people found confusing in previous releases and documentation. 


8 Release 5.2 Patch Notes 
Symbolics, Inc. August 1984 


New Audio System in Releases 5.2 
This section describes the new audio system available on 3640s 
and 3670s with I/O Rev. 4 or later installed. 


You can find all the incompatible changes by reading the first part of each section. 
A complete list of changes appears in the Table of Contents. 


2.1 New Microcode in Release 5.2: 296 on 3600 


Release 5.2 world loads must be run with microcode version 296 on the 3600. The 
old world loads do not work with the new microcode, and the new world loads do 
not work with the old microcode. 


Please note that microcode version 998 is still run on the LM-2. 
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3. Changes to the Lisp Language in Release 5.2 


3.1 Incompatible Changes to Lisp in Release 5.2 


3.1.1 Symbols Added to the global Package in Release 5.2 
The following symbols have been added to the global package: 


char-code 

char-flipcase 

char-standard 
define-prompt-and-read-type 
lexpr-send-if-handles 
operation-handled-p 
read-or-end 

send-if-handles 
string-flipcase 

tan 


3.2 New Features in Lisp in Release 5.2 


3.2.1 New Feature: Floating Point Accelerator 


Release 5.2 supports the Floating Point Accelerator (FPA) product. This is a circuit 
board and supporting microcode that speed up single-precision floating-point 
operations. It does not affect double-precision operations. 

The FPA operates only when your machine has an FPA board and is running with 
FPA microcode. The microcode is distributed with Release 5.2. If your machine has 
an FPA board but is running without FPA microcode, the machine operates 


normally but without the FPA. However, your machine cannot run FPA microcode 
without an FPA board. The machine is likely to crash under these circumstances. 


Contact your Symbolics customer service representative for information about 
installing the FPA board. 


3.2.2 New Function: tan 


tan x | Function 
Returns the tangent of x, where x is expressed in radians. 


For example: 
(tan 1.0d0) => 1.5574077246549023d0 
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3.2.3 New Functions: char-standard and char-code 


Zetalisp has a limited facility for defining multiple character sets. The standard Lisp 
Machine character set is discussed in another section. See the section "The 
Character Set". Unlike standard characters in Common Lisp, Zetalisp standard 
characters can be in fonts other than font 0. You can have both standard and 
nonstandard character sets in multiple fonts. 


Two functions, char-standard and char-code, provide support for nonstandard 
character sets that do not have the usual interpretations of case and font. 


char-standard char Function 
Returns t if char is a standard character, with the usual interpretations of 
case and font. By default, char-standard always returns t. You can 
redefine this function to introduce multiple character sets. 


char-code char Function 
Returns the character code for char, ignoring font. By default, the character 
code is the %%ch-char field. You can redefine this function to introduce 
multiple character sets. 


Always use char-code instead of (ldb %%ch-char char) to determine the 
character code so that your programs can run without modification when the 
Common Lisp character set is introduced. 


char-standard and char-code are hooks. On the 3600, you can redefine these 
functions to examine the value of the %%ch-font field of their argument and to use 
this in computing their result. You cannot redefine them on the LM-2. 


Make sure that replacement definitions for char-standard and char-code are 
thoroughly debugged using different names before redefining them. Defective 
versions of these functions can cause the system to crash. 


By redefining these functions, you can control the behavior of char-equal, 
char-lessp, char-upcase, string-equal, string-search, and other system functions 
that ignore font information or that only make sense for the standard character set. 


If char-standard is redefined and you evaluate the form 

(neq (char-standard cl) (char-standard c2)), then (char-equal cl c2) returns 
nil. char-code usually returns a number between 0 and (dpb -1 %%ch-char 0), 
inclusive. If it is redefined, it can return numbers greater than 

(dpb -1 %%ch-char 0). 


For example: 


Suppose you have three different Greek fonts and you want to define a Greek 
character set. Characters in fonts 1, 2, and 3 are assumed to be Greek. Characters 
in font 0 and in fonts 4 through 255 are assumed to be in the standard character 
set. Characters in font 0 must always be in the standard character set. 
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Suppose that the values of the %%ch-char field of the characters a, 8, and y are 
the same as that of the characters A, B, and C. We want 

(char-equal #/A #/a) and (string-equal "ABC" “afy") to return nil. But we 
want (string-equal “aSy" "aBy") to return t, even if the first string and the second 
string are in two different fonts. 


The system provides these definitions of char-standard and char-code: 


(defun char-standard (ignore) t) 


(defun char-code (char) (Idb %%ch-char char)) 


You can define a Greek character set, allowing three fonts using font numbers 1, 2, 
and 3, by using these definitions instead: 


(defun char-standard (char) 
(let ((font (ldb %%ch-font char))) 
(or (zerop font) (2 font 4)))) 


(defun char-code (char) 
(let ((font (Idb %%ch-font char)) 
(code (ldb %%ch-char font))) 
(if (or (zerop font) (2 font 4)) 
code 
(dpb 1 %%ch-font code)))) 


You can define multiple character sets in a similar manner. 


3.2.4 New functions: char-flipcase and string-flipcase 


char-flipcase char Function 
If char, which must be an integer, is a lowercase alphabetic character in the 
standard character set its uppercase form is returned. If char is an 
uppercase alphabetic character in the standard character set its lowercase 
form is returned. Otherwise, it returns char. If font information is present 
it is preserved. The result of char-flipcase is undefined for characters with 
modifier bits. 


string-flipcase string &optional (from 0) to (copy-p t) Function 

If copy-p is not nil, returns a copy of string, with uppercase alphabetic 
characters replaced by the corresponding lowercase characters, and with 
lowercase alphabetic characters replaced by the corresponding uppercase 
characters. If copy-p is nil, exchanges the case of characters in string itself 
and then returns the modified string. from is the index in string at which 
to begin exchanging the case of characters. If fo is supplied, it is used in 
place of (array-active-length sfring) as the index one greater than the last 
character whose case is to be exchanged. Characters not in the standard 
character set are unchanged. 
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3.2.5 New Flavor Functions: send-if-handles, lexpr-send-if-handles, and 
operation-handled-p 


Three new functions (send-if-handles, lexpr-send-if-handles, and 
operation-handled-p) have been added. 


Currently, send-if-handles, lexpr-send-if-handles, and operation-handled-p 
work by sending :operation-handled-p and :send-if-handles messages. For 
example, (send-if-handles object message arguments) sends message to object with 
the argument arguments. 


In a later release, these functions might be redefined so that they perform the 
operation directly, thus eliminating control over how the operation is executed. If 
you need this type of control, you should use 

(send object :operation-handled-p message) rather than 
(operation-handled-p object message). 


send-if-handles object message-name &rest arguments Function 
Sends the message named message-name to object if the flavor associated 
with object has a method defined for message-name. If it does not have a 
method defined, nil is returned. message-name is a message name and 
arguments is a list of arguments for that message. 


lexpr-send-if-handles object message-name &rest arguments Function 
Sends the message named message-name to object if the flavor associated 
with object has a method defined for message-name. message-name is a 
message name and arguments is a list of arguments for that message. If 
object does not have a method defined, nil is returned. 


The difference between lexpr-send-if-handles and send-if-handles is that 
for lexpr-send-if-handles, the last element of arguments should be a list; all 
the elements of that list are passed as arguments. lexpr-send-if-handles is 
to send-if-handles as lexpr-send is to send. 


operation-handled-p object message-name &rest arguments Function 
Returns t if the flavor associated with object has a method defined for 
message-name and nil if a method is not defined for message-name. 


3.3 Improvements to Lisp in Release 5.2 


3.3.1 defconstant’s Query Offers Three Choices 


defconstant’s query when the value of a constant is being changed now offers 
three choices: Y, N, and P. 


¢ The Y answer changes the value. 
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e The N answer does not change the value. 


e The P answer changes the value and, when you change any future value, it 
prints a warning rather than a query. 


The P answer sets inhibit-fdefine-warnings to :just-warn. defconstant obeys 
that variable, just as query-about-redefinition does. Use the following form to 
revert to the querying mode: 


(setq inhibit-fdefine-warnings nil) 


When the value of a constant is changed by a patch file, a warning is now printed. 
Formerly no warning was printed. See the special form defconstant. 
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4. Changes to Zmacs in Release 5.2 


4.1 New Features in Zmacs in Release 5.2 


4.1.1. Two New Commands: Source Compare Newest Definition (m-x) and Source 
Compare Merge Newest Definition (m-x) 


Source Compare Newest Definition (m-x) and Source Compare Merge Newest 
Definition (m-x) compare a definition against that in the newest version of the source 
file rather than the version from which the definition was most recently loaded. 

The two new commands never look in patch files; they only look in “original source 
files." If the definition was added by a patch (so that no original source file was 
recorded), the command cannot find the name of the source file. However, if you 
have already read the source file into the editor it finds the definition in the editor 
buffer. See the section "Comparing/Merging Current/Newest Versions: 
Compare/Merge Commands for Definitions: Zmacs Manual". 


41.2 Two New Commands: Select Patch (m-x) and View Patch (m-x) 


Zmacs now supports several patches in progress at once, via the Select Patch (mx) 
and View Patch (m-x) commands. For a detailed description of these patch facility 
improvements: See the section "Patch Facility Supports Multiple Patches In- 
progress". 


41.3 New Command: Select Some Buffers As Tag Table (m-x) 


The new command Select Some Buffers As Tag Table (m-x) offers another way to 
specify a tag table. See the section "Tags Tables and Search Domains: Searching, 
Replacing, and Sorting: Zmacs Manual". 


4.1.4 New Hardcopy Option to Kill or Save Buffers (m-x) 


The Kill or Save Buffers (m-x) command now offers a hardcopy option on its menu. 
Choices are: Save, Kill, Unmodify, and Hardcopy. See the section "Destroying 
Buffers: Buffer Commands: Zmacs Manual". 


4.1.5 New Dired Command, L, Loads a File 


A new command to Dired allows you to load a file merely by typing L, just as you 
can edit a file by typing E. 
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5. Changes to Utilities in Release 5.2 


5.1 New Features in Utilities in Release 5.2 


5.1.1 New Compiler Special Form: compiler:make-message-obsolete 


A new compiler special form, compiler:make-message-obsolete, allows you to 
declare that a message name is obsolete (or will be obsolete in a future release) and 
to inform users of the valid replacement. 


compiler:make-message-obsolete message-name format-string Special Form 
Allows you to generate compiler warnings about obsolete message names. 
The first argument, message-name, is the obsolete message name. The 
second argument, format-string, is the warning to be printed. If the string 
contains the -S format directive, it will be replaced by the object that was 
sent the message. 


Example: 
(compiler :make-message-obsolete :clear-screen 
“You have sent the message :CLEAR-SCREEN to the object ~S. 


This name is obsolete. The new name for this message is 
:CLEAR-WINDOW. Please update your code.”) 


5.2 Improvements to Utilities in Release 5.2 


5.2.1 Optional Argument to fed Can Now be a BFD Object 


The optional font argument to fed can now be a BFD object in addition to a string 
or a symbol. See the section "Entering and Leaving FED". 


5.2.2 Garbage Collection of Compiled Functions 


The function si:full-gc has an argument :ge-compiled-functions that garbage- 
collects old compiled function objects. 


si:full-gc &key system-release gc-compiled-functions Function 

si:full-gc does an immediate, complete, nonincremental garbage collection. 
si:full-gc runs the forms on the full-ge initialization list and then does any 
garbage collection without multiprocessing (inside a without-interrupts 
form), so the machine essentially "freezes" and does nothing but garbage 
collection for the duration. This operation takes about 20 minutes. After 
the garbage collection is completed and before it reenables scheduling and 
returns, si:full-gc runs the forms on the after-full-ge initialization list. 
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(si:full-gc :gc-compiled-functions t) garbage-collects the 
compiled-function-area, eliminating old compiled function objects. It works 
only on the 3600 family. It can significantly reduce the size of a frequently 
patched world if done before a disk-save. As a side-effect, it removes all 
:previous-definition properties. It implies :system-release t. 


Normally, you would not use this function to perform nonincremental garbage 
collection; use ge-immediately instead. si:full-gc is mainly used by 
Symbolics staff just before releasing a world load. 


5.2.3 Patch Facility Supports Multiple Patches In-progress 


In Release 5.2 the patch facility allows you to have several patches in progress at 
once. . Thus you can patch several different systems or several different minor 
versions of the same system during one patch session. (Note: please be very careful 
to create your patches in the correct order when code in one patch depends on code 
in another. Where doubtful, make one patch at a time.) 


To keep track of your various patches, the patch facility now considers patches to be 
either active or inactive and in one of the following states: 

° Inital 

¢ In-progress 

¢ Aborted 

¢ Finished 


Inactive patches are in an aborted or finished state. Active patches are in an initial 
or in-progress state. Initial means that the patch buffer has been initialized but as 
yet no definitions have been added to the buffer. Jn-progress means that definitions 
have been added to the buffer. A new Zmacs command, View Patches (m-x), 
displays the state of all your patches. 


Release 5.2 introduces the concept of the current patch. If mcre than one patch is 
in progress, one of them is known as the current patch. The commands that add 

patches, like Add Patch (m-x), add only to the current patch. Another new Zmacs 

command, Select Patch (m-x), allows you to select another patch as the current one 
from a menu of active patches. 


The add-patch commands now prompt you for comments. Just pressing END means 
"no comment". Finish Patch (m-x) lets you edit the patch comments and offers to 
gend mail about the patch. The initial contents of the mail buffer include the name 
of the patch file and your patch comments. Formerly Finish Patch prompted you 
for comments and did not offer to send mail. 


If you do not wish to be queried about sending mail, change the value of 
zwei:*send-mail-about-patch* from :ask, the default, to t or nil. t opens a 
Zmacs mail buffer without querying, and nil takes no action regarding the sending 
of patch mail. 
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Aside from the two new Zmacs commands, View Patches (m-x) and Select Patch 
(m-x), all other patching commands from previous releases remain in place. See the 
section "Making Patches". 


5.2.4 Inspector Displays Hash Tables 


The Inspector pane now displays these components of hash tables: flavor of the 

hash table, the method table, the names and values of the instance-variable slots 
followed by the key/value pairs for the entries of the hash table. The value for a 
given key is modifiable. See the section "The Inspector Inspection Pane". 
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6. Changes to the User Interface in Release 5.2 


6.1 Incompatible Changes to the User Interface in Release 5.2 


6.1.1 tv:add-system-key renamed to tv:add-select-key; tv:add-escape-key renamed 
to tv:add-function-key 


tv:add-system-key has been renamed to tv:add-select-key, and 
tv:add-escape-key has been renamed to tv:add-function-key. These changes 
were made for consistency with key names in the 3600 family. For compatibility, in 
this release tv:add-system-key is synonymous with tv:add-select-key, and 
tv:add-escape-key is synonymous with tv:add-function-key. 


See the function tv:add-select-key. See the function tv:add-function-key. 


6.1.2 Time Parser No Longer Accepts Dates in European Format 


Strings of the kind used as the first argument to time:parse and 
time:parse-universal-time can no longer contain dates in European format. In 
such strings, the first integer is always parsed as the month and the second integer 
as the day. For example, “3//4//85" or "3-4-85" is always the same as 

“March 4, 1985", never “April 3, 1985". A string like "15//3//85" is an error. 


Formerly, if either of the first two integers was greater than 12., that integer was 
parsed as the day and the other integer as the month. If both integers were less 
than 13., the site’s timezone determined whether the first integer was parsed as the 
month or the day. In European timezones the first integer was parsed as the day. 


For example, formerly: 


"3//15//85" was equivalent to "March 15, 1985" in all timezones 
"15//3//85" was equivalent to "March 15, 1985” in all timezones 
*3//4//85" was equivalent to "March 4, 1985" in non-European timezones 
"3//4//85" was equivalent to “April 3, 1985" in European timezones 


As of Release 5.2: 


"3//15//85" is equivalent to "March 15, 1985" in all timezones 
“15//3//85" is an error 
"3//4//85" is equivalent to “March 4, 1985" in all timezones 


See the section "Reading Dates and Times". 
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6.2 New Features in the User Interface in Release 5.2 


6.2.1 New special form: define-prompt-and-read-type 


define-prompt-and-read-type keyword parameter-list description Special Form 


&body body 
Defines a new type keyword for prompt-and-read. Defines a dispatch 
function to be called to get input from the user when prompt-and-read is 
called with a type keyword of keyword. The dispatch function is defined as 
the prompt-and-read property of keyword. Its parameter list is 
parameter-list, and its body is body. prompt-and-read returns whatever the 
dispatch function returns. 


The dispatch function is called with two or more arguments: 


¢ The first argument is the stream to read from, usually query-io. 


e The second argument is a list of input editor options. The dispatch 
function can add further options to this list. | 


e If the first argument to prompt-and-read is just keyword, the 
dispatch function is called with no more arguments. If the first 
argument to prompt-and-read is (keyword . type-args), the remaining 
arguments to the dispatch function are the elements of type-args. By 
convention, this is an alternating series of keywords and values. 


parameter-list usually looks something like this: 
(stream options &key type-arg-1 type-arg-2 ...) 


If this prompt-and-read type does not allow any type-args, De eee 
might look like (stream options). 


description is a string that describes the type of input the user should enter. 
This string is displayed as part of the default prompt-and-read prompt. It 
should be a suitable argument for the format control string “Enter ~A: ”. 
For example, if description is "a number", the default prompt-and-read 
prompt is “Enter a number: “. 


body is the body of the dispatch function. Often the body is a call to a more 
primitive reading function, such as read or readline. It is the responsibility 
of the body or a function it calls to provide input editing if needed. 


Example: 


(def ine-prompt-and-read-type :delimited-string “a string delimited by <End>” 
(stream options &key delimiter buffer-size) 


(read-delimited-string (or delimiter #\end) stream nil options buffer-size) ) 
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6.2.2 Previously Undocumented Feature: the 3600-family Calendar Clock 


Machines in the 3600 family have a calendar clock that operates independently of 
the other Lisp Machine timers. When you cold boot and the machine fails to get 
the time from the network, it asks you to type in the time. If the calendar clock 
has been set, it uses the calendar clock reading as the default for the time you 
specify. If the calendar clock has not been set, it offers to set it to the time you 
type in. See the function time:initialize-timebase. 


You can also set the calendar clock yourself using time:set-calendar-clock and read 
it using time:read-calendar-clock. 


time:set-calendar-clock new-time Function 
(3600 family only) Sets the calendar clock to new-time, which must be either 
a universal time or a suitable argument to time:parse. Returns t if the 
calendar clock is set successfully, otherwise nil. 


time:read-calendar-clock optional even-if-bad Function 
(3600 family only) Attempts to read the calendar clock. If the attempt is 
unsuccessful, returns nil. If the attempt is successful and the time appears 
to be valid, returns the time in universal time form. If the attempt is 
successful but the time appears to be invalid, takes action depending on the 
value of even-if-bad: 
nil or unspecified Returns nil 


Not nil Attempts to convert the internal format to universal 
time. If the conversion is successful, returns the time 
in universal time form. Otherwise, signals an error. 


6.2.3 Previously Undocumented Feature: Audio Level and Screen Brightness 
Controls on 3670 and 3640 Consoles 


The audio level on 3670 and 3640 consoles can be changed by using the following 
keystrokes: 


LOCAL-L makes the sound louder 
LOCAL-@ makes the sound quieter 


This control affects the console hardware and does not interact with the digital audio 
feature software. 


Screen brightness can be adjusted via the keyboard as well. 


LOCAL-B makes the picture brighter 


LOCAL-D makes the picture dimmer 
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The LOCAL key is used like a shift key for these commands. 


6.3 Improvements to the User Interface in Release 5.2 


6.3.1 New type keyword for prompt-and-read and tv:choose-variable-values: 
-host-or-local 


prompt-and-read and tv:choose-variable-values now accept the :host-or-local 
type keyword. :host-or-local is like :host except that it returns the local host if 
the user types "local". 


Following is the syntax for :host-or-local as the first argument to 
prompt-and-read: 


(:shost-or-local :default default) 
Reads the name of a network host or the string "local", 
terminated by RETURN, LINE, or END. If :default is specified, it 
should be the name of a host as a symbol or string. If default is 
the string "local" or the symbol :local, the default is the local 
host. If :default is specified and the user just presses RETURN, 
LINE, or END, it returns the host specified by :default. If the 
user types “local”, it returns the local host. Otherwise, it returns 
the host whose name the user types. 


Following is the meaning of :host-or-local as a tv:choose-variable-values 
keyword: 


shost-or-local The value is a network host. It is read as the name of a host or 
the string "local" to represent the local host. If the host is the 
local host, it is printed as “Local”; otherwise, it is printed as the 
name of the host. 


See the function prompt-and-read. See the section "The Choose Variable Values 
Facility”. 
6.3.2 Time Parser Accepts Dates in ISO Standard Format 


Strings of the kind used as the first argument to time:parse and 
time:parse-universal-time can now contain dates in ISO standard format. These 
strings are of the form “yyyy-mm-dd", where: 

yyyy Four digits representing the year 


mm The name of the month, an abbreviation for the month, or one or 
two digits representing the month 


dd One or two digits representing the day 


Release 5.2 Patch Notes 


25 


Symbolics, Inc. August 1984 


See the section "Reading Dates and Times". 
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7. Changes to Zmail in Release 5.2 


7.1. Show Draft Disposition (m-X) Zmail Command 


After you have sent a message, you can use Show Draft Dispositions (m-x) to find 
out which mail server sent your message, to whom, at what time. 


See the section “Leaving Mail Mode in Zmail”. 


7.2 Start Background Save (m-X) Zmail Command 


Start Background Save (m-X) suppresses background mail checks and starts a save in 
the background. This allows you to compose and send mail messages while the save 
is being done. See the section "Saving, Expunging, Killing, and Renaming Zmail 
Messages". 


7.3 c-m-L is a Synonym for [Select] 


Using [Select] returns you to the previously selected sequence. 


e-m-L is like [Select]. With an argument of 0 it works like [Select (R)]. With an 
argument of 1 or greater, it works as in Zmacs and selects from the stack of 
previously selected sequences. See the section "Changing Buffers: Buffer Commands: 
Zmacs Manual". See the section "Selecting Zmail Mail Buffers and Files". 


7.4 Moving a Message by Filters Now Uses All Filters 


When you use [Move (M)] to move a message to a file, all the filters in the filter- 
mail file alist are checked and the message is moved to the files corresponding to the 
filters in the list satisfied by the message. See the section "Copying a Zmail Message 
to Another Buffer". 


7.5 New Numeric Arguments for c-m-Y 


c-m-Y yanks the current message into a reply buffer. Unless an argument is given, 
the message is indented four spaces to set it off from the reply. The variable 
zwei:*prune-headers-after-yanking*, settable in your profile, controls the 
automatic pruning of message headers yanked into a reply. The default is to not 
prune headers. 


The new numeric arguments to c-m-Y allow you to choose indentation and header 
pruning of the yanked message. 
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The arguments to c-m-Y control the indentation and the pruning of headers, as 
follows: 


Argument Options 
none Indentation, pruning per zwei:*prune-headers-after-yanking* 
1 No indentation, pruning per 


zwei:*prune-headers-after-yanking* 


2 Indentation, pruning per reverse of 
zwei:*prune-headers-after-yanking* 


3 No indentation, pruning per reverse of 
zwei:*prune-headers-after-yanking* 


See the section "Other Zmail Commands". 


7.6 Internet Domain Addressing 


Zmail supports the Internet RFC822 domain-addressing formats, for the purpose of 
parsing and replying to messages with domain-format addresses in their headers. If 
the machine name is registered in the ARPA network hosi table, that name is used 
in the address. If the machine name is not registered, the network address isg 
used, in the form [address], where address is the four-integer numbers that specify 
the site in Internet addressing. 
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8. Changes to the File System in Release 5.2 


8.1 Incompatible Changes to the File System in Release 5.2 


8.1.1. :clear-screen and :clear-eol Obsolete Names 


The following messages for output streams have been renamed: 


¢ :clear-screen is now :clear-window 


¢ :clear-eol is néw :clear-rest-of-line 


In release 5.2, the old names are still accepted for compatibility, but their support is 
not guaranteed indefinitely. We suggest that you use the new names in new 
programs. 


:clear-window Message 
Erases the window on which this stream displays. Non-window streams 
don’t support this operation. 


:clear-rest-of-line Message 
Erases from the current position to the end of the current line. 


8.2 New Features in the File System in Release 5.2 


8.2.1 LMFS Tape Spec Prompting 


The new interface for the tape specification for such utilities as the LMFS 
Dumper/Reloader improves and refines specification techniques. 


The fields "Tape host" and "Tape drive" are removed from the LMFS dumper and 
reloader (and tape comparer, lister, and all other forms of the reloader) menus. In 
their place is now a new field, "Tape spec", which allows control of all tape 
parameters, including host, drive, density, and more subtle parameters. See the 
section "Tape Spec Prompting: Changes to Tape and Disks in Release 5.2". 


The next-tape prompting has been streamlined to take advantage of the new tape- 
prompting system. 


It was not previously possible to control density for these programs. 


Note: Because Choose Variable Values menus provide no way to control defaults for 
fields that have explicit merging, it is often wise to click middle on “Tape spec" to 
yank the typed-out default and edit it. 
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8.2.2 Direct Access File Streams 


Direct access file streams are supported by the file system. The only file system 
currently supporting them is LMFS. Direct access file streams are designed to 
facilitate reading and writing data from many different points in a file. They are 
typically used to construct files organized into discrete extents or records, whose 
positions within a file are known by programs that access them in nonsequential 
order. Although this could be done with the :set-pointer message to input file 
streams, the direct access facility provides the following additional functions: 


e Direct access to output files. 


e Bidirectional file streams, which allow interspersed reading and writing of data 
to and from varied locations in a file. 


¢ No use of network connections or file buffers during the time between data 
reading and the next call to position. In contrast, using the :set-pointer 
message with ordinary ("sequential") input file streams incurs a significant 
network and data transfer overhead if the program repeatedly positions, reads 
several bytes, and then computes for a time. 


8.2.2.1 Stream Messages 
The following new messages and usages of old messages are relevant to direct access 
file streams. 


:read-bytes n-bytes file-position Message 
Sent to a direct access input or bidirectional file stream, this requests the 
transfer of n-bytes bytes from position file-position of the file. The message 
itself does not return any data to the caller. It causes the stream to be 
positioned to that point in the file, and the transfer of n-bytes bytes to begin. 
An EOF is sent following the requested bytes. The bytes can then be read 
using :tyi, :string-in, or any of the standard input messages or functions. 


The stream enforces the byte limit, and presents an EOF if you attempt to 
-read bytes beyond that limit. You must actually read all the bytes and read 
past (that is, consume from the stream) the EOF for best performance. 


It is also possible, before all the bytes have been read, to perform stream 
operations other than reading bytes. For example, an application might read 
several records at a time, to optimize transfer and buffering, and decide, after 
reading the first record, to position somewhere else. Direct access file 
streams handle this properly. Nevertheless, network and buffering resources 
allocated to the stream (both on the local machine and server machine) are 
not freed unless all the requested bytes (of the last :read-bytes request) and 
the EOF following them are read. 


If you request more bytes than remain in the file, you receive the remaining 
bytes followed by EOF. 
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(with-open-file (f “saratoga:>foo.lisp” :direct t 
:direction :io)) ; Opens a file for direct I/O 


(send f :read-bytes 10. 25.) ; Requests 10 bytes, starting at byte 25. 
(send f :tyi) ; Gets one byte from the stream. 
(defvar record (make-array 10. :type art-string)) ; a record buffer 


(send f :string-in eof-option record) ;; Reads 10-character record. 
(send f :tyi) ;; Consumes the following EOF. 


Direct Access Output File Streams 


The consumption of network and buffering resources by direct access output streams 
is not currently optimized. 


You create direct access output to output and bidirectional direct access file streams 
by sending a :set-pointer message to the stream, and beginning to write bytes 
using standard messages, such as :tyo, :string-out, and so forth. The bytes are 
written to the file starting at the location requested, at successive file positions. 
Although you can extend the file in this manner, you cannot do a :set-pointer to 
beyond the current end of the file. 


Direct access output, therefore, consists of sequences of :set-pointer messages and 
data output. Data is not guaranteed to actually appear in the file until either the 
stream is closed or a :finish message is sent to the stream. See the message 
:finish. 


Direct Access Bidirectional File Streams 


Bidirectional direct access file streams combine the features of direct access input and 
output file streams. Sequences of :read-bytes messages and reading data can be 
interspersed with sequences of :set-pointer messages and writing data. The stream 
is effectively switched between "input" and “output” states by the :read-bytes and 
:set-pointer messages. You cannot read data with :tyi or similar messages if a 
:set-pointer message has been sent to the stream since the last :read-bytes 
message. Similarly, you cannot write data with :tyo or similar messages unless a 
:set-pointer message has been sent to the stream since the last :read-bytes or :tyi 
messages, or similar operation. 


When the EOF of a byte sequence requested with a :read-bytes message has been 
read for a bidirectional stream, the system frees network and buffering resources. 


32 Release 5.2 Patch Notes 
Symbolics, Inc. August 1984 


8.2.3 New keyword options to open 


There are two new keywords to open that control the new direct access file stream 
feature: 


:direct The default is nil. t specifies a direct access stream. 


:direction :io The file is being opened for intermixed input and output. 
Bidirectionality is supported only if the stream is to be a direct 
stream, that is, :direct t is given as well. 


8.3 Improvements to the File System in Release 5.2 


8.3.1 Faster Creation of Logical Pathname Hosts 


The functions fs:set-logical-pathname-host and fs:make-logical-pathname-host 
can now avoid querying the namespace server to determine whether a physical host 
already exists with the same name. 


Caution: This saves some time, although it could cause confusion later, if a physical 
host is added with the same name. 


fs:make-logical-pathname-host name &key Function 
no-search-for-shadowed-physical 
Defines name, which should be a string or symbol, to be the name of a 
logical pathname host. name should not conflict with the name of any 
existing host, logical or physical. 


This function loads the file sys:site;zame.translations. This file should 
contain a single form: a call to fs:set-logical-pathname-host. The file is 
always loaded into the file-system package. See the function 
fs:set-logical-pathname-host. 


fs:make-logical-pathname-host not only loads this file but also arranges for 
the same file to be reloaded in the future. load-patches checks the 
translations file for each logical host that is defined in the current world; if 
any file has been changed it is reloaded. load-patches does this if and only 
if no specific systems are specified in its arguments. 


fs:make-logical-pathname-host alters the 
logical-pathnames-translation-files system so that it contains the 
translations files for all logical hosts defined in the current world. 
load-patches loads updated translations files by calling make-system on this 
system. 


When a world load is taken to a new site, the translation file for each logical 
host that is defined in the current world is reloaded from the new site’s site 
directory. This changes all logical pathnames to map into the new set of 
physical pathnames defined by the new site. 
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An fs:make-logical-pathname-host form often appears in the file 
sys:site;system-name.system. make-system looks for this file when given the 
name of an unknown system. In addition to a call to 
fs:make-logical-pathname-host, this file should contain a call to 
si:set-system-source-file, which specifies the logical pathname of the file 
containing the defsystem form. 


The argument no-search-for-shadowed-physical (default nil) means to look 

only in the existing pathname hosts for a host with the same name as the 
logical host. This saves time by not asking the namespace server whether 
the name of the newly defined logical host conflicts with the names of any 
physical hosts, but it prevents you from seeing the following warnings: 


Warning: the host ~A must now be referred to as ~A: in pathnames, 
since ~A is now a logical pathname host. 
This affects ~[no~: ;~:*~D~] extant pathnames. 


Warning: the nickname ~A: for the physical host ~A 
will now refer instead to the 
logical pathname host ~A. 
Use ~A: in pathnames. 


Example: 
Following are the contents of the file sys:site;cube.system: 
333 7*- Mode: LISP; Package: USER -*- 


(fs:make-logical-pathname-host "cube" ) 
(si:set-system-source-file "cube" “cube: cube; cubpkg"”) 


fs:set-logical-pathname-host logical-host &key physical-host Function 
translations no-translate 
no-search-for-shadowed-physical 
fs:set-logical-pathname-host creates a logical host named logical-host if it 
does not already exist. It then establishes translations of logical directories on 
logical-host to physical directories on physical-host. translations is a 
"translations" list of two-element lists of strings representing associated logical 
directories (source patterns) and physical directories (target patterns). For 
the format of the lists and the translation rules: See the section "Logical 
Pathname Translation". 


Logical directory names should be terminated by semicolons, but 
fs:set-logical-pathname-host accepts names without semicolons. Host 
names can appear in the strings in the translations list, but each logical host 
in a string must refer to the same host as logical-host, and each physical 
host in a string must refer to the same host as physical-host. If the physical 
pathname is on a TOPS-20 or VMS device, you must include the host name 
(either explicitly or implicitly, with an initial colon) so that the device is not 
taken to be the host. 
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If no-translate is nil or unsupplied, the translation of every interned logical 
pathname is checked. Properties are copied from the old physical pathname 
to the the new one, and logical pathnames that now have no corresponding 
physical pathnames are uninterned. If no-translate is not nil this mapping is 
suppressed, and some physical pathnames might not get the properties of the 
logical pathname. The consequences of this are unknown. 


A call to fs:set-logical-pathname-host is usually the only form in the file 
sys:site;logical-host.translations. This file is loaded by 
fs:make-logical-pathname-host (always in the file-system package), which 
also arranges for it to be reloaded in the future. load-patches checks this 
file for all logical hosts in the current world and reloads the file if it has 
changed. . 


The argument no-search-for-shadowed-physical (default nil) means to look 

only in the existing pathname hosts for a host with the same name as the 
logical host. This saves time by not asking the namespace server whether 
the name of the newly defined logical host conflicts with the names of any 
physical hosts, but it prevents you from seeing the following warnings: 


Warning: the host ~A must now be referred to as ~A: in pathnames, 
since ~A is now a logical pathname host. 
This affects ~[no~:;~:*~D~] extant pathnames. 


Warning: the nickname ~A: for the physical host ~A 
will now refer instead to the logical pathname host ~A. 
Use ~A: in pathnames. 
Example: 
Following is the contents of the file sys:site;cube.translations: 
333 °*- Mode: LISP; Package: FILE-SYSTEM -*- 


(set-logical-pathname-host "cube" 
*>:physical-host “pointer” 
*stranslations ’((“cube;" “>cube>”))) 


8.3.2 :finish is supported by some output file streams 


The :finish message is supported by some output file streams (currently, remote and 
local LMFS). 


:finish finalizes file content. It ensures that all data have actually been written to 
the file, and sets byte count. It converts ordinary output openings (that is, openings 
that are not for direct access) into append openings. It allows other users to access 
the data that have been written before the :finish message was sent. 
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9. Changes to Networks in Release 5.2 


9.1 Incompatible Changes to Networks in Release 5.2 


9.1.1 Size of Packet Buffers 


The current size of a packet buffer on the 3600 family is 1498 bytes, which is 
different than in previous releases. Note, however, that the size of packet buffers is 
not guaranteed to be the same from one release to another. 


9.2 New Features in Networks in Release 5.2 


9.2.1 Using the Terminal Program with Hosts Connected to the Serial Line 


You can connect a 3600 family machine to another host via the serial line. 
Specifically, you can use the terminal program to communicate with another host 
when the 3600 serial line is connected to a terminal port on the other host. 


The network system treats the set of hosts connected to the serial lines of a 3600 as 
a special network, a pseudonet. Before you can use the terminal program to talk to 
another host over the serial line, you must use tv:edit-namespace-object to create 
this network and assign an address on that network to the 3600. You might want 
to create or modify the remote host as well. 


1. Create the network. Give it a name attribute associated with the 3600 and a 
type attribute of serial-pseudonet. 


In the following example, Merrimack is the name of the 3600: 


NETWORK MERRIMACK-SERIAL 
TYPE SERIAL-PSEUDONET 


2. Add an entry to the address attribute of the 3600 to specify that the 3600 is 
connected to the new network. Each address entry is usually a pair of the 
form (network address). By convention, the 3600 is assigned address 0 on a 
serial pseudonet. Following is an example of a new address entry for the 
3600 Merrimack: 


ADDRESS MERRIMACK-SERIAL 0 


3. If the line rate of the serial line is other than 9600 baud, supply a peripheral 
entry for the 3600 giving the correct baud rate. The peripheral type is 
serial-pseudonet, and the unit attribute is the unit number of the serial 
line. Following is an example of a peripheral entry for the 3600: 


PERIPHERAL SERIAL-PSEUDONET UNIT 2 BAUD 4800 
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4. If you want the terminal program to start out simulating one of the supported 
terminal types, add a terminal-type attribute to the peripheral. Currently 
supported terminal types are the VT100 and Ann Arbor Ambassador. For 
example, to make the terminal program simulate an Ambassador, add to the 
3600 a peripheral entry of this form: 


PERIPHERAL SERIAL-PSEUDONET UNIT 2 BAUD 9600 TERMINAL-TYPE Ambassador 


You can now use the terminal program to connect to the remote host. At the 
"Connect to host:" prompt, you must supply an address of the form 
MERRIMACK-SERIAL|2. If you want to type a name or nickname of the remote host 
instead, use tv:edit-namespace-object to add address and service entries for the 
remote host. If the remote host does not exist in the network database, use 
tv:edit-namespace-object to create it. 


For the address entry, specify the serial pseudonet and an address that corresponds 
to the unit number of the serial line to which the host is connected. The service 
entry is a triple of the form (service medium protocol). For the regular host login 
server, service is login, medium is serial-pseudonet, and protocol is tty-login. 
Following is an example of address and service entries for the remote host Blue 
connected to the 3600 Merrimack: 


HOST BLUE 

SYSTEM-TYPE TENEX 

ADDRESS MERRIMACK-SERIAL 2 

SERVICE LOGIN SERIAL-PSEUDONET TTY-LOGIN 


You can also use the serial line to connect to servers other than normal login on a 
remote host. You must add a service entry for the remote host to specify the kind 
of service, the serial-pseudonet medium, and the protocol that the remote host 
uses. You must also add an address entry on the serial pseudonet for the remote 
host. In the address entry, specify the address in the form protocol=unit instead of 
just unit. Following are examples of address and service entries for a file server 
using protocol myftp on remote host Blue: 


HOST BLUE 

SYSTEM-TYPE TENEX 

ADDRESS MERRIMACK-SERIAL MYFTP=2 
SERVICE FILE SERIAL-PSEUDONET MYFTP 


For information on the terminal program: See the section "New terminal program 
SELECT T". 


For information on network and host attributes: See the section "Object Definitions: 
Network Database". 


For information on services, media, and protocols: See the section "The Lisp 
Machine Generic Network System”. 
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9.2.2 New Variable to Hold Packet Size 


neti:raw-packet-buffer-size Variable 
The variable stores the number of bytes in the array returned by 
neti:allocate-packet-buffer. This is the maximum number of bytes that 
any packet can have. The value depends on the architecture of the machine 
and, to a lesser extent, on the particular system release. It is not 
guaranteed to be the same from one release to another. Nevertheless, since 
packet buffers can be used as temporary storage, knowing their size can be 
important. 


9.3 Improvements to Networks in Release 5.2 


9.3.1 Improvements to :error-disposition Option of net:define-server 


The :ignore and :notify keywords to the :error-disposition option of 
net:define-server now take optional values, as follows: :error-disposition (:notify 
error-flavor-1 error-flavor-2 ...) and :error-disposition (:ignore error-flavor-1 
error-flavor-2 ...). The ability to specify one or more error flavors allows finer control 
over error notification. See the special form net:define-server. 


9.3.2 Improvements to tv:edit-namespace-object 


When editing an object that lives in more than one namespace (for example, a host 
that is on both the local Chaosnet and the Arpanet), a pop-up window appears that 
lists the name of each namespace and asks which "view" (that is, which namespace) 
you want to edit. For a complete description of tv:edit-namespace-object: See 
the section "User Interface to the Network Database". 
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10. Changes to the FEP in Release 5.2 


This chapter describes changes to the FEP software that are concurrent with 
Release 5.2. FEP software is distributed in its own versions, which are separate 
from Lisp software releases. Release 5.2 requires FEP version 17 or higher. Unless 
otherwise indicated, each change in any FEP version applies to later versions as well. 


10.1 FEP Version, Serial 1/0, and Model Number Compatibility 


This section describes which FEP proms are appropriate for the Lisp Machine, based 
on the model number of the machine (3600, 3640, 3670). In general, the higher- 
numbered versions are preferable. 


On all models, FEP prom version 22 or 24 is required for full functionality of the 
three serial lines attached to the Lisp Machine. 


For 3600s, you can use FEP versions 17, 18, 22, and 24. 
For 3640s, you must use FEP version 24. 


For 3670s, you can use either FEP version 22 or 24. 


10.2 FEP Version 18: Improvements 


10.2.1 Changes in FEP Fault Lights on the 3670 


Beginning with FEP version 18, 3670s use the following rules for turning on and off 
the lights on the processor front panel: 


e When the FEP starts up, it clears all lights on the processor front panel. 


e When the FEP starts Lisp, the FEP turns the Fault light off and the Run 
light on. 


e Whenever Lisp stops for any reason, the FEP turns the Run light off and the 
Fault light on. 


e When the FEP executes the Clear Machine, Load Microcode, or Load World 
command, it turns the Fault light off on the assumption that you are fixing 
the cause of the fault. 
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10.3 FEP Version 18: New Features 


10.3.1 si:halt has new fep-commands argument 


In FEP version 18, si:halt has a new optional argument fep-commands that can be 
used to invoke FEP commands. 


si:halt &optional fep-commands Function 


On the 3600, si:halt stops execution of Lisp and gives control to the FEP. 
This function does not interrupt disk I/O operations when it stops Lisp. 


The function sys:%halt should no longer be used as it can halt disk 
operations. Interrupting a disk write can cause a fatal ECC error later, 
because the contents of the disk block are incomplete. This can render 
directories and other files inaccessible and is a particular problem when 
halting the machine while using LMFS. 


If the optional fep-commands are not supplied or if the argument is nil, 
si:halt places you at the FEP level. If you supply a string for fep-commands, 
Lisp causes the FEP to interpret the string as if the string were typed in 
from the keyboard or read from a command file. It is important to use a 
new line for each command that is part of the string. 


The following form halts Lisp, passes control to the FEP and causes the 
Show Version and Continue commands to be executed. 


(si:halt “Show Version 
Continue 
") 
This example generates the following display: 


(si:halt “Show Version 
Continue 

") 

Lisp stopped itself. 

Closing command file. 

Fep> 

Fep>Show Version 

Fep version 22 running in prom. 
NIL 


si:shalt with optional fep-commands can be included in function definitions to 
define booting and loading procedures, as shown in the following examples: 
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(defun boot-macsyma () ;boots using >Macsyma.boot 
(si:halt “Boot >Macsyma.boot 
")) 


(defun reboot () ; ;boots using the default 
(si:halt (format nil “Boot~%"))) sboot file 

(defun reload-world () sloads the default world 
(si:halt (format nil “Load World~%Start~%") )) ;and starts Lisp 

(defun reload-microcode () sloads the default 


(si:halt (format nil “Load Microcode~%Start~%" ) )) smicrocode and starts 


10.3.2 h-c-upper-left waits for Lisp to stop itself 


With FEP version 18, pressing h-c-upper-left does not immediately stop Lisp. 
Instead, the FEP asks Lisp to stop itself cleanly. If Lisp does stop itself, the FEP 
prints the message "Lisp stopped itself." If Lisp does not stop itself after about 
three seconds, the FEP prints, "Waiting for Lisp to stop itself..." If after another 
three seconds Lisp does not stop itself, the FEP forcibly stops Lisp and prints, 
"Halting execution of Lisp." The purpose of this behavior is to reduce the chance of 
halting the 3600 during a disk write, which might cause ECC errors. The preferred 
way of stopping Lisp is still to call sishalt; use h-c-upper-left only if no Lisp Listener 
is responding. 


10.4 FEP Version 22: Incompatible Changes 


10.4.1 FEP Halt Command Differences in 3600s and 3670s 


The FEP’s Halt command behaves differently on a 3600 than on a 3670. On the 
3600, the Halt command asks the same question as it did previously — "Do you 
really want to halt the FEP?" — but additionally displays the message "FEP Halted” 
in the nanofep display. On the 3670, the Halt command instead asks the question, 
"Do you really want to power down the 3600?", because it is possible to power down 
the 3670 from the FEP. Additionally, the fault light on the switch panel is lit. 


10.4.2 FEP Shutdown Command Replaces Halt Command in FEP Version 22 


In FEP version 22, the FEP Shutdown command replaces the Halt command. 
Although the Halt command still exists for compatibility, it might disappear in the 
future. See the section "Less Common FEP Commands". 
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10.5 FEP Version 22: New Features 


10.5.1 New FEP Command: Set Display-string 


In FEP version 22, a new command, Set Display-string, has been added for 3600s. 
This command displays the string in the nanofep display of machines that have a 
nanofep display. The length of the string is limited to 12 characters, the number of 
characters in the nanofep display. If more characters are used, the string is 
truncated. This command can be used in a .boot file. 


See the section "Less Common FEP Commands". 


10.5.2 New FEP Command: Set Monitor-type 


FEP version 22 has the new Set Monitor-type command which provides a method 
for specifying the monitor type. The Set Monitor-type command ensures that the 
sync program used is for the monitor type requested. monitor-type can be either 
Moniterm or Philips; the types can be abbreviated to their first letter, m for 
Moniterm and p for Philips. 


Set Monitor-type is used if the monitor is changed at a site and the ID prom is not 
changed accordingly. This command can be used in a boot file. 


See the section "Less Common FEP Commands". 


10.6 FEP Version 22: Improvements 


10.6.1 Changes in FEP Fault Lights on the 3600 
Beginning with FEP version 22, 3600s use the following rules for turning on and off 
the lights on the processor front panel: 

e When the FEP starts up, it clears all lights on the processor front panel. 


¢ When the FEP starts Lisp, the FEP turns the Fault light off and the Run 
light on. 


¢ Whenever Lisp stops for any reason, the FEP turns the Run light off and the 
Fault light on. 


e When the FEP executes the Clear Machine, Load Microcode, or Load World 
command, it turns the Fault light off on the assumption that you are fixing 
the cause of the fault. 
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10.7 FEP Version 23: Incompatible Changes 


10.7.1 New Default for FEP Add Paging-file Command 


Beginning with FEP Version 23 proms, >reserve.page is the default for Add Paging- 
file. For earlier proms, >page.page is the default. 


See the section "Less Common FEP Commands". 


10.8 Additional Information About the FEP in Release 5.2 


10.8.1 Previously Undocumented FEP Command: Load FEP 


The Load Fep command loads and starts loadable FEP programs. The syntax is 
Load Fep file 


The names of the FEP programs are usually of the form Vxx-name, where xx is the 
number of the FEP version on which the program runs and name is the name of 
the program. For example, the file name FEP:>V22-debug.flod would indicate that 
the program ran on FEP version 22 and was used for debugging Lisp crashes. 


See the section "Less Common FEP Commands". See the section "FEP File Types". 


10.8.2 Previously Undocumented Topic: Debugging in the FEP 
Files were provided in Release 5.0 that can be used for debugging in the FEP for 
FEP versions 17, 18, and 22. 


10.8.2.1 Debugging in the FEP 

The Release 5.0 tapes included some files that were provided as an extra debugging 
aide. These files can be used to enter a debugging mode in the FEP. This is 
especially useful for problems that cause control to return to the FEP, thus making 
it impossible to use the debugging methods normally used in Lisp. 


These files are: 


e v17-debug.flod 
e v18-debug.flod 


e v22-debug.flod 


The file name indicates the version of the FEP software for which the file can be 
used. The files should now reside on your sys host in the directory with the logical 
pathname sys: ]-fep; vun-debug flod where nn indicates the version of FEP software. 


To use these files, you should copy the appropriate file to the FEP filesystem before 
you need to use it. To copy the file, first find out which version of FEP software is 
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installed in your machine. You can do this by either typing the Lisp function 
print-herald to Lisp or by typing the Show Version command at the FEP level. 
Your FEP version should be either 17, 18, or 22. This corresponds to the number in 
one of the filenames above. To copy this file to your FEP file system, use the 
Zmacs command Copy File (m-%). 


For example, if you are using FEP version 22 software, you would use the following 
command to copy the .flod file to the FEP file system: 


Copy File (m-X) sys:1-fep;v22-debug.flod fep0: >v22-debug. flod 


The .flod file cannot be used on any other FEP version; trying to use one on a 
different FEP version will have no effect. 


After you have copied the file to the FEP file system, you can enter the debugging 
mode by loading the file with the Load Fep command, as shown in the following 
example: 


Fep>Load Fep >v22-debug.flod 


This will put you into a debugging mode very similar to the Debugger under Lisp, 
whereby you can move up and down the stack to examine the state of the machine 
and determine the source of the problem. The HELP key lists the commands that 
are available. 


One particularly useful command when the 3600 has crashed while paging is c-m-S. 
This command allows you to switch between the auxiliary stack (where paging code 
runs) and the normal stack (where user code runs). If the 3600 crashed while 
executing on the auxiliary stack, user stack frames will not be found until c-m-S is 
executed, 


10.8.3 Using FEP Clear Paging-files Command Before Add Paging-file 


You should use the Clear Paging-files command before using the Add Paging-file 
command in two situations: 
e If you are typing in the Add Paging-file command from the keyboard. 
e If you are adding more than one paging file. If you are adding more than one 
paging file, use Clear Paging-files before adding the set of paging files. 


Neither the FEP nor Lisp has any error checking to detect doubly allocated disk 
blocks, which might occur in either of these two situations. Not clearing the paging 
files will eventually cause surprising errors to occur after booting. 


See the section "Less Common FEP Commands". 


10.8.4 Previously Undocumented Tape Utility for Writing FEP Files to Tape 


In Release 5.0, the tape:write-fep-files-to-tape function was added. This make it 
easier to write large (requiring more than one cartridge tape) FEP files to tape using 
a local tape drive. This is very useful for large world loads. This is described in 
more detail in the chapter Changes to Tape and Disks in Release 5.2. 
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11. Changes to Tape and Disks in Release 5.2 


11.1. Incompatible Changes to Tape and Disks in Release 5.2 


11.1.1 Must Specify Dumper Tape Drive Identifier 


Lisp machine tape servers running release 5.2 now interpret tape drive identifiers; 
they had not in the past. Therefore, when you invoke 
distribution:write-distribution-tape and are presented with the Choose Variable 
Values Menu (labeled Distribution Dump Options), it is necessary to unambiguously 
specify the tape drive you intend to use. Leaving this field blank, as in the past, 
will no longer work for Lisp Machine tape servers. See the section "Tape Spec 
Prompting: Changes to Tape and Disks in Release 5.2". See the section "The 
Dumper Choose Variable Values Menu". 


11.2 New Features in Tape and Disks in Release 5.2 


11.2.1 New Feature: Carry Tape System | 
A new tape portability tool, the carry tape system, is now supported. 


The carry tape system provides a means of dumping selected files or sets of files to 
magnetic tape (cartridge or industry-compatible) and loading them at a later time, at 
a potentially different site. Files can be dumped from any host or set of hosts, and 
reloaded to any place on any host. 


The carry tape system is meant to provide a standard, system-independent 
interchange medium for exchanging single programs and files between sites. It is 
meant to fill in a gap between backup dumpers and the distribution tape system. 
Its interface is easy to use, and requires no files or declarative forms to be prepared 
in advance. 


The following are the three components of the carry tape system: 
e The carry dumper 
e The carry loader 
e The carry tape lister 

11.2.1.1 The Dumper 


tape:carry-dump file-or-files &key tape-host density reel (report t) Function 
Dumps a file or set of files to a carry tape. Any type of file can be dumped. 
Character files are dumped and reloaded using the Lisp Machine character 
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set as an interchange medium. Binary files are dumped and reloaded with 
the proper byte size as long as either of the following is true: 


e The file is of one of the system’s known canonical types. 


e The operating system on which the file resides knows and can supply 
the byte size. 


file-or-files 


tape-host 


density 


reel 


report 


a pathname, filespec, or list of pathnames and/or filespecs. 
Wildcard pathnames or filespecs may be used. Recursive 
("accordion") wildcards may be used to dump subtrees on 
those hosts that support them. 


a host object or the name of a host object to use for tape 
access. :local specifies the local tape drive. If not 
specified, the standard tape host prompt and defaulting 
mechanism is used. 


a fixnum, specifying tape density, which may be used 
when the applicable default is not appropriate. 


can be a string, specifying tape reel name for tape servers 
that need this information (none of the currently 
supported ones do): 


tells the carry dumper to report its progress as it dumps 
files. A value of nil tells it not to. The default is to 
report to standard-output. Any value besides nil or t is 
expected to be a stream to which the reports will be 
written. 


Currently, carry dumps must fit on one tape. 


The carry dumper commences by finding out all available information about 
the files to be dumped, verifying their existence. It then asks for 
confirmation, and proceeds to dump all the files specified without 


intervention. 


(tape:carry-dump “swanee: >minerals>*.dx" ) 

To be dumped: 

swanee: >minerals>*.d*: 7 files 

Is this right? (Y or N) Yes. 

Type name of tape host (default (CR) = POINTER): scrc 
Tape mounted on drive mta0:. 

Dumping swanee: >minerals>abel.data.3 (5-bit bytes) 
Dumping swanee: >minerals>abe] .directory.7 


End of dump. 
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11.2.1.2 The Loader 

The carry loader loads files from a carry tape. The carry system makes no attempt 
to copy any file properties, including author and creation date. The carry system 
copies only file contents, and the loader provides reasonable defaults for the target 
file name. 


tape:carry-load &key host density reel (report t) Function 


host a host object or the name of a host object to use for tape 
access. :local specifies the local tape drive. If not 
specified, the standard tape host prompt and defaulting 
mechanism is used. 


density a fixnum, specifying tape density, which may be used 
when the applicable default is not appropriate. 


reel can be a string, specifying tape reel name for tape servers 
that need this information (none of the currently 
supported ones do). 


report tells the carry loader to report its progress as it loads files. 
A value of nil tells it not to. The default is to report to 
standard-output. Any value besides nil or t is expected 
to be a stream, to which the reports will be written. 


These arguments are rarely needed. 


The carry loader begins its operation by reporting the filespecs given to the dumper, 
and asks if you wish to load all of the files dumped. If only one filespec or 
pathname was given, it is assumed that you want to load it all, and no question is 
asked: 

(tape:carry- load) 

Type name of tape host (default (CR) = APSO): beta 

Tape mounted on drive mta0d:. 

Carry dump made by DCF. 

Dump taken at 11/13/82 09:05:22. 

Dumped on machine EAGLE. 

Dumped: e:>trees>apple.orchard 


The set of files dumped as a result of each filespec given to the dumper is called a 

group. If many groups were dumped, the loader lists the filespecs of each group at 
- the start of its operation, and asks for instructions about which groups are to be 
loaded (selectively) and which groups are to be skipped: 
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The following groups of files were dumped: 
e:>trees>apple.orchard 

e: animals>whales>tails.tales 

e: >basebal }>runs>foul .* 


Load all these files? (ABORT to get out) (Y, Q, or M) 


The possible responses are: 


Y Ignore distinctions of group, and proceed as described below. 


Q Query about each individual group, and proceed as below for those 
groups that are selected for loading. 


M Same as Q, but present a multiple-choice menu instead of querying 
for each group. 


If you do not want to load anything, ABORT will work at any time. 


The carry loader can either query for the target location of each file to be loaded, or 
proceed in semi-automatic mode, in which the host and directory from which each 
file was dumped are used as a key to target loading of subsequent files from that 
host and directory. The name, type, and version of each file to be loaded are 
developed automatically from the name, type, and version of the file that was 
dumped, by means of the same mechanism used by ordinary file copying. 


The normal action of the carry loader is to query for each file, with a query of the 
following form: 


Load SWANEE: >minerals>rock5.data.6 into BULLWINKLE:/usr2/ jones/rock5.data? 
" (Y, N, 0, or A)? 


The following responses apply: 


Y, SPACE Load the file into the place specified. The host and directory 
shown remain the default target directory for all files from this 
host and directory at the sending site. 


N Do not load this file at all. The host and directory shown remain 
the default target directory for all files from this host and 
directory at the sending site, in spite of this. 


0 Prompt for another place in which to put this file. The host and 
directory into which this file is then loaded become the default for 
all subsequent files from the same host and directory at the — 
sending site. You are queried again at the time such files are 
encountered. 


A Load the file into the place specified. All further files from the 
same host and directory at the sending site are then automatically 
loaded into the same host and directory as this file without 


querying you. 
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11.2.1.3 The Lister 
The carry lister describes what is on a carry tape. Once started, it does not interact 
in any way. 


tape:carry-list &key host density reel (report t) Function 


host a host object or the name of a host object to use for tape 
access. :local specifies the local tape drive. If not 
specified, the standard tape host prompt and defaulting 
mechanism is used. 


density a fixnum, specifying tape density, which may be used 
when the applicable default is not appropriate. 


reel can be a string, specifying tape reel name for tape servers 
that need this information (none of the currently 
supported ones do). 7 


report tells the carry lister to report its progress as it lists files. 
A value of nil tells it not to. The default is to report to 
standard-output. Any value besides nil or t is expected 
to be a stream, to which the reports will be written. 


These arguments are rarely needed. 


11.2.1.4 What Tape Tool is Appropriate? 

Symbolics supports at least five different tape formats, all different and incompatible. 
Each format is specific to one Lisp Machine tool. Many people wonder which tool is 
appropriate for which application. 


The LMFS dumper and reloader are used for snapshotting files on a local Lisp 
Machine file system and reloading those files on the same local Lisp Machine file 
system, in the same place at a later date. The intended use of LMFS backup is to 
reload files onto the same machine from which they were dumped. 


The Distribution dumper and loader are intended to distribute transportable systems 
and libraries, defined by system declarations and pseudosystem declarations, on logical 
hosts, from one site to another. The distribution system specializes in finding 
appropriate source and object versions of systems, appropriate patch files, and so 
forth. It is cumbersome to use it for transporting miscellaneous files between sites 
or hosts. 


TAPEX is a format for transferring character (source) files (only) between hosts. It 
is the only one of these formats which can be read or written by other than a Lisp 
Machine. TAPEX programs exist for TOPS-20 and Multics, as well as for the Lisp 
Machine (tape:tapex). It cannot deal with any type of file except character files, 
and has no features to speak of. Each individual dumping or loading requires an 
interaction. 


Carry tape is the most general tool, and is meant to dump individual files and sets of 
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files given by wildcard filespec, and load them at any site. Recent improvements to 
the wildcard facility make this a very powerful and easy-to-use tool. 


IFS tape is a 3600-specific format readable by the 3600 FEP. It is used to transport 
and distribute 3600 FEP files and file systems, including 3600 world loads and 
microcode. 


11.2.2 New Feature: Maxtor XT-1140 Support 


The Maxtor XT-1140 disk is supplied with Symbolics 3640 computers. Its 
unformatted capacity is 140 megabytes. 


11.2.3 New Feature: TD-80 Tape Drive Support 


Effective with Release 5.2, the 3600 supports the TD-80 industry-compatible tape 
drive. TD-80 drives on 3600 systems are denoted by drive identifiers 0, 1, and so 
forth. The cartridge drive, when present, is denoted by the drive identifier "cart". 
See the section "Tape Spec Prompting: Changes to Tape and Disks in Release 5.2". 


11.3. Improvements to Tape and Disks in Release 5.2 


11.3.1. Distribution Tape Program Changes 


11.3.1.1 Dumper 

If a tape error is encountered during dumping, the dump can be restarted on 
another tape without respecifying the files to be dumped by means of a restart 
option which appears on the restart option list at the time of the error. If you 
invoke the restart option, it prompts (using the new tape-prompting system) for a 
(potentially new) tape spec and restarts the dump with a new tape attachment and 
the same dump systems and options. See the section "Tape Spec Prompting: 
Changes to Tape and Disks in Release 5.2". 


There is no more support for old Net Listen tape protocol. 
11.3.1.2 The Dump Menu 


When doing a distribution dump, you can change the tape host without using the 
mouse by invoking the new keyboard command H. Local is an acceptable input. 


The following dump menu line no longer exists: 
Local Remote Net Listen Band 

On the LM-2 it is now: 
Tape Band 


Band means the same as it did previously, and Tape replaces Local and Remote. On 
the 3600, the only option is tape. 
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The line: 
Tape Host 


now accepts the name of any host, or Local, although, on the LM-2, it will be 
ignored if Band is selected. 


11.3.1.3 New Tape Spec Prompting: Distribution Tape Program Changes 
The new tape specification system provides correct defaults for host and drive. See 
the section "Tape Spec Prompting: Changes to Tape and Disks in Release 5.2". 


Reloader/mapper/copier tape prompting: On the 3600 (again, because Band is not a 
possibility), there is no more "where to get the distribution tape" menu. You get the 
canonical new tape-prompting system prompt (which is customized, as it can be). 


On the LM-2, there is still the "where to get the distribution tape" menu, but the 
default host and drive are chosen with the help of the new tape-prompting system. 


11.3.2 Improvements to Distribution Tape Loader 


11.3.2.1 Specifying a New Logical Host Name 

When loading an ordinary distribution tape, the distribution tape loader now always 
asks you to confirm the use of a logical host before using it, giving the opportunity 
to load the tape onto a different logical host than the one it was dumped from (sys). 
For example, you can use this feature to load a sys: distribution onto experimental- 
sys:, or you might simply prefer a different logical host name because logical host 
names differ between sites. This feature does not work for patch files, however, 
since they do not use logical pathnames. 


The first time the loader sees a logical pathname host during any load operation, it 
asks whether sys is the correct logical host at this site. Previously it did not ask 
this question for hosts that were already defined, especially sys. The possible 
answers to the question vary depending on whether the logical pathname host is 
already defined. A new feature allows you to type U instead and load the tape into a 
logical host other than sys. The loader lets you define this logical host according to 
the following answers: 

Y, E, SPACE Existing Logical Host is Okay 

R Define logical host by reading <filename on sys:site;> 
D Define Logical Host 

U Use a different logical host 

Ss Skip this file 

P 


Punt this host for the rest of the tape 


Of the first three answers above, one and only one will be available. 
A logical host can now have the same name as a physical host. When this happens, 
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a warning is printed. If the name of the logical host is the same as the currently 
preferred name of the physical host: 


¢ The system chooses a new preferred name for pathnames on the physical host. 
e The warning includes the old and new names. 


e All cached occurrences of the old name in pathnames are removed. 


You can always choose a new name, since you can use a namespace-qualified name 
(containing a vertical bar). (Logical host names are not registered in the namespace 
system and never contain vertical bars, whitespace characters, or colons.) 


Examples of the possible warnings are: 


Warning: the host QUABBIN must now be referred to as QUABBIN: in 
pathnames, since Q is now a logical pathname host. This affects 3104 
extant pathnames. 


Warning: the nickname F: for the physical host POINTER’ will now 
refer instead to the logical pathname host F. Use P: in pathnames. 


Warning: the host QUABBIN must now be referred to as SCRCIQ: in 
pathnames, since QUABBIN is now a logical pathname host. This affects 
3104 extant pathnames. 


11.3.3 Previously Undocumented Utility: Writing FEP Files to Tape 


In Release 5.0, the tape:write-fep-files-to-tape function was added. This make it 
easier to write large (requiring more than one cartridge tape) FEP files to tape using 
a local tape drive. This is very useful for large world loads. 


11.3.3.1 Writing FEP Files to Tape 

You can write files to tape using a local tape drive with the 

tape: write-fep-files-to-tape function. This can be used for large (requiring more 
than one cartridge tape) FEP files and is very useful with large world loads. To do 
this, you first get access to the necessary software by making a fep-tape system. 

You can use the :silent and :noconfirm options, as shown in the following example: 


(make-system ’fep-tape :silent :noconfirm) 


The next step is to use the function tape:write-fep-files-to-tape to write the FEP 
files to tape. This can be used to write both microcode and world load files. 


To restore these files from tape, use the FEP command Disk Restore. For more 
information about restoring files from tape, refer to the Release 5.0 Software 
Installation Guide. 


When the end of tape is encountered, the machine will return to the FEP. You 
then put the second tape into the tape drive, and use another Disk Restore 
command using the same destination filename. This appends the data from the 
second tape onto the designated file. 
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tape:write-fep-files-to-tape optional mic-name Function 
Writes FEP files to tape. mic-name is the name of file-format microcode that 
precedes the microcode and world load files on distribution tapes. 


When an argument is supplied within the form, the function assumes that 
the argument is the file-format microcode and uses stream format. When an 
argument is not supplied, you are prompted for a file name, which is 
assumed to be a microcode or world load file and which is then written out in 
distribution format. Thus, supplying a file-format microcode name should be 
used only when writing an initial microcode file to tape. 


You will be prompted as to whether the first tape is in place. Put the tape 
in the local tape drive and then answer "Y". You will then be prompted as 
to whether you wish to write a file to tape; you should answer "Y". Next, 
enter the filename of the world load. You will also be prompted for file and 
restoration comments. As the file is written out, the number of blocks will be 
printed on the screen. When the end of the tape is reached, the following 
message is printed: 


_ "starting a new tape” 


and you will be prompted as to whether a new tape is in place. Put a fresh 
tape in the drive and type "Y" to continue. This will continue writing the 
file on the second tape. 


tape:write-fep-files-to-tape is in a separate system named the fep-tape 
system. To use tape:write-fep-files-to-tape, you must first make a fep- 
tape system by typing (make-system ’fep-tape). 


11.4 Tape Spec Prompting 


11.4.1 Tape Specs 


The concept called a tape spec provides a means for describing, passing around, and 
defaulting tape host, drive, and parameter selection. 


The basic idea is that tape:make-stream, which is called by all tape-using programs 
to create tape streams, is provided by programs with partially complete information, 
sometimes none at all. If this information is insufficient to open a tape stream, 
tape:make-stream prompts for more information. 


Only one such prompt is issued by tape:make-stream. In this prompt, a complete 
specification (a tape spec) for all variable parameters of the tape stream to be opened 
is presented as a default. This default is made by merging previously used 
parameters, that is, the last time since boot that you created a tape stream, with 
ones explicitly provided by the tape-using program that called tape:make-stream. 
The meaning of this default, and its use in processing your response to the prompt, 
is very similar to the parallel concepts in pathname merging. If you press RETURN, 
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the default is used as is to provide all parameters to tape:make-stream. 
Otherwise, you can specify individual parameters, which are merged, as described 
below, with the default, to produce parameters to tape:make-stream. The merged 
specification is saved to produce the new default, for next time. 


The default default values (the defaults after boot) are chosen from the available 
hardware on the local machine and the declared tape servers at the site. 


For many parameters, a "null value” can be specified, which applies whatever the 
host chooses by default. 


The following is a typical prompt: 
Type tape host or spec (default (Return) = Local: 0, reel=joe, den=1600): 


The defaults in this example are tape on the local machine, drive 0 (which is either 
LM-2 or 3600 (TD-80) half-inch (industry compatible)) tape, a reel named "joe", and 
density of 1600 bits per inch. 


11.4.2 Tape Spec Parameters . 
The following are the supported changeable parameters with allowable synonyms: 


host (machine) The tape host, that is, the host you have mounted or intend to 
mount the tape on. The string “local” is acceptable to specify the 
local host. Any name known to the namespace system may be 
used to specify a host. 


device (dev, unit) The tape drive on that host that will be used. For Lisp 
Machines, numeric values of 0 to 7 specify the designated "reel-to- 
reel” (half-inch industry-compatible) drives, when present, and 
“cart” specifies 3600 cartridge tape. For other tape hosts, you 
must know the host’s drive specification format, if the tape host 
does not choose the drive you expect by default. 


reel (volume, vol) The name of the tape reel. Whether or not this parameter is 
necessary depends on both the program and the tape host being 
used. For instance, the distribution dumper requires a reel name 
to compute the name of the log file. Few other Lisp Machine 
programs do. Some tape hosts (none currently supported) might 
require a reel name in order to inform their operators to locate 
and mount the reel you want. 


density (dens, den) 
The tape density in bits per inch. Some tape controllers on some 
hosts utilize this information, others ignore it. The default, if the 
program does not specify a density, is 1600 for non-cartridge tape. 


number-of-buffers (buffers, bufs, buffs, n-buffers, n-bufs, n-buffs) 
This is a performance-control parameter only applicable to local 
tape on a Lisp Machine. It controls the number of read- 
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ahead/write-behind buffers used by both the industry-compatible 
tape stream implementations and the 3600 cartridge tape stream 
implementation. 


record-length (length, len, reclen, recsize) 
The length of tape records, in bytes. Normally, programs specify 
this parameter explicitly, such that another program with which it 
is communicating via tape, can read what it has written or write 
what the other program can read. Nevertheless, it is sometimes 
useful to change this parameter at tape spec merging time, in 
order to experiment with unknown tapes, and so forth. This 
parameter should not be altered casually. 


granularity (gran) This specifies a number n, such that all tapes written by the 
stream being created are padded with zeros (the pad character is 
program-changeable) to be multiples of 2 in length. It is ignored 
in the case of cartridge tape. The default for this parameter 
depends on the tape host and its stream and hardware. For 3600 
industry-compatible tape, it is 1. For LM-2 industry-compatible 
tape, it is 4. Other hosts have various defaults, often not 1. 
Although supplied Lisp Machine tape applications specify a 
granularity of 4, it would be wrong for tape:make-stream to 
prohibit you from writing records of any length if you have a tape 
host not so restricted. However, tape hosts can, in general, not 
read tapes at granularities not multiples of their own granularity, 
and this causes great problems moving tapes from site to site. 
This parameter can be used to adjust granularity when writing 
tape, to help remedy this problem in some cases. 


minimum-record-length (minimum, minimum-record, minimum-length, minrec, 
minreclen) 
This specifies a number n, such that all tapes written by the 
stream being created will be padded with zeros (the pad character 
is program-changeable) to be at least n bytes in length. The 
default is 64. As with granularity, the goal here is to ensure 
compatibility between systems. Some can write records shorter 
than others can read, and some can even write records shorter 
than they themselves can read. Again, this parameter is usually 
managed by tape-using programs, but might need to be adjusted 
by hand in some cases where writing records smaller than 64 
bytes is required, but modifying the program is impossible or 
undesirable. 


11.4.3 How Tape Specs Are Merged 


When tape:make-stream prompts you with a default tape spec, you type a 
(perhaps empty) tape spec. It merges the two to produce the final tape spec. 
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The tape spec you type can specify one of three types of values for each parameter: 


Explicit value If you specify the value of some parameter, the value you 
specified, assuming it is legitimate, is used. 


Merge default By not saying anything at all about a parameter, the default from 
the default shown to you is used. 


Null value By supplying a null value for a parameter, the tape host uses its 
own default. This is how you cancel a displayed default value 
without supplying an explicit value. A side-effect of this is that 
there is not an explicit value for this parameter in the next 
default. For the host parameter, a null value is the same as not 
saying anything. 


Here are the merging rules: 


Each explicit or null value given in the typed tape spec replaces the corresponding 
element of the default to give the new tape spec. Components not specified are 
carried over from the default. 


However, if the typed host is not the host in the default, and the typed tape spec 
does not specify a device, the device from the default will not be used, but a null 
value assumed. 


See the section "Tape Spec Merging Examples”. 


11.4.4 Tape Spec Syntax 


The general.form of a tape spec is a comma-separated list of equal-sign pairs: 
host=LM-6, reel=foo, density=800 
The order of parameters is not significant. Each parameter specification is of the 
form 
parameter = value 
The specifications are separated by commas. Spaces and tabs around the equal sign 


or commas are not significant. Spaces and tabs in values are considered significant 
parts of the value. 


Values that contain commas, equal signs, quotation marks (" "), or colons can be 
quoted with quotation marks to preserve their integrity during parsing. Reader 
string slashification is operative in, such strings. 


A null value can be specified by any of the following: 
reel 
reel 
reel 


() 


In the first example, the equal sign is followed by the end of the line. 
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Some special allowances are made for specification of host and device in a less- 
general syntax, more like file pathname syntax. 


¢ A tape spec consisting of only a single token is interpreted as specifying the 
host parameter by that token. The following are valid, equivalent tape specs: 


host = Im-6 
LM-6 
Lisp-Machine-6 
a LM-6" 


¢ If a token followed by a colon, or even an empty token followed by a colon 
appears where a parameter specification is expected, that token is interpreted 
as specifying the value of the host parameter. A colon thus used "replaces" 
the comma that would have been there (although the syntax "Im-6:" is 
permitted for "host=lm6"). The following are valid, equivalent tape specs: 
Im-6: reel=foo, device = "mta0:" 
reel= foo, host= Im-6, device = "mta0:" 
reel=foo, Im-6: device = “mta0” 
reel=foo, Im-6: device = mta0 
e A null token before a colon specifies the merge default for the host parameter. 
The utility of this is explained below. 


e A single token appearing where a parameter specification is expected, that is, 
followed by the end of the spec or a comma, is interpreted as specifying a 
device. 


Thus, the following are equivalent: 


device=cart 
scart 


The following, too, are equivalent: 
LM-6: cart, reel = foo 
LM-6: reel = foo, device = cart 
cart, reel = foo, host = LM-6 
device = cart, reel = foo, host = LM-6 


Note again that a tape spec consisting of a single token, followed by either colon or 
no delimiter at all, is (in the latter case) a special case, and designates the value of 
the host parameter, not the device parameter. 


The syntax of tape specs is quite general and flexible. It is also, in most common 
cases, trivial. Far and away, the most common answer to the 
tape:make-stream prompt is simply RETURN. 


In most other cases, the only relevant information that tape:make-stream is 
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lacking is the name of the host, which can simply be typed alone as a valid tape 
spec. It is for this reason that the prompt says the following: 


Type tape host or spec 


The next most common case is specifying a device. A single leading colon 
differentiates this from a host. The following example specifies both host and device: 


LM-6: cart 


11.4.5 Tape Spec Merging Examples 


The following are examples of merging tape specs. It should be noted that tape 
specs are abstract quantities, not strings. The merging is performed on the abstract 
tape specs, not on strings. 


old default: Local: 0 

spec: :cart 

merged result: Local: cart 

old default: Quabbin: 0 

spec: den=3200 

merged result: Quabbin: 0, den=3200 
old default: Vixen: 0 

spec: Stony 

merged result: Stony 

old default: Quabbin: 0, den=3200 
spec: den= 


merged result: Quabbin: 0 
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12. Release 5.2: Operations and Site Management 


12.1 Notes on Operations in Release 5.2 


The Software Installation Guide describes procedures for installing a tape drive for a 
Lisp Machine host, using the tv:edit-namespace-object function. 


12.1.1 Installing a Tape Drive 


You install a tape drive for a Lisp Machine host with the tv:edit-namespace-object 
function, specifying tape chaos rtape as the last Service: Set: entry in the host 
object. 


To enable a tape drive for a Lisp Machine host, you must add a service attribute in 
the host object. See the section "Host Objects: Network Database". 


tv:edit-namespace-object edits objects in the namespace database. For a complete 
description of the namespace database: See the section "Network Database". 
For example: 

(tv:edit-namespace-object :host “Janis") 
pops up namespace menu that displays all the attributes of the host Janis. You add 
the tape service by clicking on Set: of the last Service: Set: entry, then type: 

tape chaos rtape RETURN 


12.1.2 Installing an ASCII Print Server on VMS 


The ASCII print server allows someone on a Lisp Machine to hardcopy a file on an 
ASCII printer, such as a line printer or a DECwriter, from some VMS system. 


To bring up an ASCII printer named Stump-Pond on host Comet: 


1. Create the printer object named Stump-Pond (using 
tv:edit-namespace-object) and give it the following attributes: 


Type ASCII 

Format ASCII 
Default-font FAKES 
Header-font FAKES 
host COMET 


See the function tv:edit-namespace-object. 


2. Edit the host object Comet and add the attributes: 


Service HARDCOPY CHAOS LGP 
Printer STUMP-POND 
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3. Read the tape containing the VMS ASCII print server software into your VMS 
system using BACKUP. The tape was written with this command: 


$ BACKUP CHAOS$DISK:[CHAOS. .. JMT:ASCLGP .BCK/DENSITY= 1600 


The following commands retrieve the software: 


$ MOUNT/FOREIGN MTAn 
$ BACKUP MT:ASCLGP.BCK disk:[*...]*.*.* 


4. Edit the file SYSSMANAGER:CHSTART.COM to include the print server in — 
the INSTALL commands. Insert the line: 


CHAOSS$RFC : LGP/OPEN/SHARED/HEADER/PRIV=( TMPMBX, SYSPRV) 
after the command that runs the INSTALL utility. 


5. You should also add the following commands to the 
SYS$MANAGER:SYSTARTUP.COM file: 


$ ASSIGN/SYSTEM <spooled device> <printer name> 
$ SET/DEVICE=<spooled device> <spooled device> 
$ INIT/QUEUE <spooled device> 

$ START/QUEUE <spooled device> 


where <spooled device> is the name of the device that will be a spooled printer 
and <printer name> is the name of the network printer object. 


If you plan to use an ASCII printer regularly from a Lisp Machine, you should 
probably .include the following in your lispm-init.! file: 
(login- forms 
(setq press: *user-hardcopy-page-headings* nil)) 


12.1.3 Installing an ASCII Print Server on UNIX 


The ASCII print server allows someone on a Lisp Machine to hardcopy a file on an 
ASCII printer, such as a line printer or a DECwriter, on some UNIX system. 


To bring up an ASCII printer named Stump-Pond on host Cupid: 


1. Create the printer object named Stump-Pond (using 
tv:edit-namespace-object) and give it the following attributes: 


Type ASCII 

Format ASCII 
Default-font FAKES 
Header-font FAKES 
host CUPID 


See the function tv:edit-namespace-object. 
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2. Edit the host object Cupid and add the attributes: 


Service HARDCOPY CHAOS LGP 
Printer STUMP-POND 


On the UNIX (BSD) 4.2 network tape, there is a server which answers the "LGP" 
contact name on the Chaosnet. This server simply gets some information for the 
banner page and then calls upon the "Ipr" spooling system to do the work with the 
following line: 


execl("/usr/ucb/Ipr“, “LGP", “-1", “-T", nargs[FILE_NAME], 0); 


Refer to 4.2BSD Line Printer Spooler Manual (in the /usr/doc documents directory) 
and manual pages for Ipr and printcap for background information on how this all 
works. 


As explained in the above documents, there are several ways for a system manager 
to configure the lpr system. The execl command above uses the -l argument to 
allow binary interpretation by the spooler. This is appropriate for an LGP printer. 
The -T gives the spooler the name to use on the banner page. Because there is no 
P specification, Ipr will use its default device. In the distribution system, this uses 
/dev/lp as the device and spools in the directory /usr/spoolMp. It is easy to modify the 
LPR configuration to use a different default device and/or a different spooling 
directory. 


To get the LGP server to use a different printer (here, "myprinter"), first install a 
printcap entry for the printer. This includes specifying a spooling directory for the 
printer, so make that directory if it doesn’t already exist. Then change the execl 
statement to the following: 

execl("/usr/ucb/Ipr”, “LGP”, “-1", “-P*, “myprinter”,"“-T", 

nargs[FILE_NAME], 0); 

Be sure to link /dev/myprinter to the appropriate hardware device. For example, by 
linking /dev/console to /dev/myprinter, making the directory /usr/spool/myprinter, and 
installing the following entry in /etc/printcap one can use the console DECwriter as a 
remote printer with the above change to execl: 


myprinter|local line printer:\ 
: lp=/dev/mypr inter :sd=/usr/spool /mypr inter: 1f=/usr/adm/Ipd-errs: 
If you plan to use an ASCII printer regularly from a Lisp Machine, you should 
probably include the following in your lispm-init.! file: 
(login- forms 
(setq press: *user-hardcopy-page-headings* nil)) 


12.1.4 Sending who-am-i Requests Directly to Namespace Servers 


As of Release 5.2, you can speed up the boot process for the machines at your site 
and cut down on some of the site-wide overhead of this process by telling machines 
at your site to send their who-am-i requests directly to the site’s namespace servers. 
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The who-am-i request is part of the procedure Lisp Machines use at boot time to 
determine if the saved Lisp environment matches the current site. If the 
information returned in response to the who-am-i request differs from the 
information that was saved away in the booted world load, the machine adjusts itself 
to the new site. (This adjustment takes a few minutes.) 


In release 5.0, the Lisp Machine always broadcast a who-am-i request over the local 
network at boot time. Any other machine receiving this request would then return 
a response containing the just-booted machine’s identity. 


Since the initial who-am-i request was broadcast to all machines on the local 
network, the booting of a single machine might have incurred the overhead of 
running the who-am-i server at many machines at the site, when only one server 
_ need do so. This would have used resources unnecessarily, and might have slowed 
down machines unexpectedly when other machines were booted. 


You now have the option of specifying that requests for who-am-i service first be 
directed to the namespace servers of the (presumed unchanged) site; no broadcast 
message is sent unless these direct queries fail. To specify this, add the following 
service triple to namespace server host objects (using the namespace editor): 


(WHO-AM-I CHAOS-SIMPLE WHO-AM-I) 


12.1.5 3600 disk-save Improvement 


The disk-save function gives two new options to the choices that it offers when you 
try to save without having enough room in the FEP file system. Previously, you 
could either run Dired on the directory or expunge the directory. Now you can also 
do the following: 


L ‘List all files in the root directory of the FEP file system of the 
unit on which you tried to save. 


s Selectively delete load files. It goes into a loop asking about each 
"load" file in the root directory of the FEP file system of the unit 
on which you tried to save (except the file you are currently 
running). It queries you about deletion of each one, expunging 
after each successful deletion until you have enough room. 


This is probably the only option you need to use. 


Also, if you try to run Dired, disk-save now explains why it is a bad idea and asks 
for confirmation. 
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13. Release 5.2: Notes and Clarifications 


13.1 Clarifications and Corrections for Release 5.2 


13.1.1 Clarification of use of dbg:with-erring-frame 


dbg:with-erring-frame (var object) Macro 
dbg:with-erring-frame sets up an environment with appropriate bindings 
for using the rest of the functions that examine the stack. It binds var with 
the frame pointer to the stack frame that signalled the error. var is always 
a pointer to an interesting stack frame. object is the condition object for the 
error, which was the first argument given to the condition-bind handler. 


(defun my-handler (condition-ob ject) 
(dbg:with-erring-frame (frame-ptr condition-object) 
body...)) 
Inside body, the variable frame-ptr is bound to the frame pointer of the 
frame that got the error. 


Sometimes, you might want to use the special variable dbg:*current-frame* 
as var because some functions expect this special variable to be bound to the 
stack frame that signalled the error. 


You would use this special variable if you are sending the 
:bug-report-description message to the condition object, which calls stack- 
examination routines that depend on the idea of a current frame, in addition 
to the other things that dbg:with-erring-frame sets up. 
:bug-report-description is the message that generates the text that the 
Debugger c-! command puts in the mail composition window. See the 
message :bug-report-description. 


13.1.2 Clarification of Use of :no-increment-patch Option to make-system 

Please note that if you specify the :no-increment-patch option to make-system, it 
must follow, not precede, the :compile option in the make-system declaration. 
13.1.3 Clarification of Use of :nowarn Option to load-patches 

-mowarn does not imply :noselective. It suppresses only the warnings generated 
while a patch file is being loaded and the subsequent query to the user. 

13.1.4 Effect of Character Set Translation on Direct Access File Streams 


The Lisp Machine generic file access protocol was designed to provide access to 
ASCII-based file systems for Lisp Machines. Lisp Machines support 8-bit characters 
and have 256 characters in their character set. This results in difficulties when 
communicating with ASCII machines, which have 7-bit characters. 
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The file server, on machines not using the Lisp Machine character set, is required to 
perform character translations for any character (not binary) opening. Some Lisp 
Machine characters expand to more than one ASCII character. Thus, for character 
files, when we speak of a given position in a file or the length of a file, we must 
specify whether we are speaking in Lisp Machine units or server units. 


This causes major problems in file position reckoning. It is useless for the Lisp 
Machine (or other user side) to carefully monitor file position, counting characters, 
during output, when character translation is in effect. This is because the operating 
system interface for "position to point x in a file", which the server must use, 
operates in server units, but the Lisp Machine (or other user end) has counted in 
Lisp Machine units. The user end cannot try to second-guess the translation- 
counting process without losing host independence. 


Since direct access file streams are designed for organized file position management, 
they are particularly susceptible to this problem. As with other file streams, it is 
only a problem when character files are used. 


You can avoid this problem by always using binary files. If you must use character 
files, consider doing one of the following: 


¢« Know the expansions of the Lisp Machine, that is, characters such as Return 
that do not expand into single host characters. Note that this sacrifices host 
independence. 


¢ Do not use these characters. See the section "Qfile Character Set 
Translation". This section explains which characters are expanded on the Lisp 
Machine. 


Release 5.2 Patch Notes 65 
Symbolics, Inc. August 1984 


14. New Audio System in Release 5.2 


14.1 Introduction to the Digital Audio Facilities 


The 3600 audio facilities consist of two 16-bit digital audio channels and supporting 
microcode. The facilities read arrays of samples from 3600 memory and feed them 
to the console at a rate of 50,000 samples per second. The channels are fed data in 
parallel; it is a "stereo" facility. When active, the audio microcode reads a pair of 
samples from 3600 niain memory every 20 microseconds, supplying one 16-bit value 
to each channel. Although both channels appear digitally at the console, currently 
only one channel has an output device supplied. A digital-to-analog converter (DAC) 
in the console feeds a small speaker and 8-ohm headphone jack, as well as a low- 
level analog output compatible with standard "auxiliary" inputs to consumer audio 
equipment. 


The 3600 audio microcode also supports a polyphony feature. The polyphony feature 
allows the use of the audio facility for the performance of music, obviating the need 
to generate samples for an entire performance. The polyphony feature is 
experimental in this release (5.2); it may be radically altered or removed in future 
releases. 


Use the online tools described elsewhere to find out more about a given object in the 
audio facility: See the document Program Development Tools and Techniques. For 
practical examples of programming with flavors: See the document Window System 
Program Examples. 


The digital audio facilities are demonstrated through several code examples. See the 
section "Examples of Using the Audio Facilities". 


Note: the digital audio facility works only on 3600-family Lisp Machines running 
System 5.2 (or later), with the Revision 6 (or later) I/O board {IO-REV.6) installed. 


14.2 Microcode Support for the Digital Audio Facilities 


14.2.1 The Audio Microtask 


This discussion covers the microcode interface, that is, the formats of commands and 
samples interpreted by the audio microcode. This is the lowest-level interface to this 
facility, and only the barest primitives are described here. The formats and 
commands given here may change in future version of the hardware, microcode, and 
software. 


The audio microcode runs in its own microtask and thus operates parallel with the 
execution of Lisp. The audio microtask is either active or stopped at any time. 
Since the microtask scheduler works according to a priority queue, when the audio 
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task is active, it "wakes up" every 20 microseconds, and executes, preempting Lisp, 
until it either outputs an audio sample pair or stops. The generation of audio 
samples is not affected by the behavior of Lisp programs, including the masking of 
interrupts, and so forth. 


When active, the audio microtask follows a command list, or program of its own, 
consisting of audio commands, stored by the programmer in main memory before 
the audio microcode is started. The command list is stored in sequential physical 
memory locations (although it may contain "jJUmps"). Each command occupies one or 
more 3600 words. The words are expected to be fixnums. The 32 data bits of each 
fixnum contain the data interpreted by the audio microtask. The commands include 
directives to control the flow of the command list as well as directives to output data 
- to the console DAC. The audio microcode also maintains a repeat counter to facilitate 
generation of repetitive or continuous waveforms. See the section "Looping Through 
Audio Command Lists". 


The audio microtask is started by the execution of the %audio-start instruction by 
Lisp; the evaluation of the form (sys:%audio-start) effects this. When this 
instruction is executed, the audio microtask will fetch the physical address of the 
beginning of the command list from the variable sys:%audio-command-pointer. 
Therefore, this variable must be set to the physical address of the beginning of the 
command list prior to the execution of the form (sys:%audio-start). The audio 
microcode stops when it encounters an explicit command to this effect in its 
command list. 


The audio microtask is coded for real-time performance; it does no validity checking, 
and issues no diagnostics. If you program the audio microtask via the techniques 
described in this document, it is your responsibility, as always, to create valid 
programs. In the case of the digital audio facilities, however, the result of an invalid 
program could be a machine halt or destruction of the integrity of virtual memory, 
or both. If certain bit patterns are interpreted as audio commands, they can modify 
storage locations. Save your editor buffers often when debugging code for the audio 
microcode. 


14.2.2 Sample Format 


Each sample pair is expected to be a fixnum. The 32 data bits of each fixnum 
include two samples, one for each channel. The sample pair is read by the audio 
microtask in one operation, and the samples are sent to each channel in parallel. 
Each sample is a 16-bit unsigned integer, one in the lower (bits 0-15) half word 
(channel 0), and one in the upper (bits 16-31) half word (channel 1). 


A sample value of 0 produces the lowest analog output voltage, and a sample value of 
all 1s (65535, octal 177777) produces the highest. A voltage of zero is represented by 
the midpoint value, 32768 (octal 100000). 


Channel 0 is currently supplied with analog output hardware in the console; Channel 
1is not. The digital-to-analog converter in the console is only of 12-bit precision, and 
thus, it ignores the low 4 bits of Channel 0 samples. 
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14.2.3 Audio Command Format 


Audio commands occupy one or more words of sequential physical memory. The 
command words are expected to be fixnums. The fixnum data (32 bits) for each 
command is described in this section. 


The format of the first word of each command is as follows, described by byte 
specifiers in the sys package: 


%%audio-command-op 
A 4-bit opcode selecting the action to be performed by the audio 
microcode. Each of the currently assigned opcodes is described 
elsewhere. See the section "Audio Command Opcodes”. See the 
section “Polyphony Command Opcodes". 


%%audio-command-arg 
A 28-bit quantity, whose meaning differs for each opcode. When 
the contents of this field, known as the operand, is described as 
an address, it must be a physical address. The usual way to 
obtain such a physical address is via the function 
si:%vma-to-pma (which does a virtual-to-physical translation). 
This function is given a fixnum virtual memory address. The 
usual way to derive such addresses, which are usually references 
to array element cells, is via the %pointer and aloc functions. A 
physical address computed from a virtual address in this way 
cannot be validly used unless the relevant virtual address has been 
wired in advance. See the section "Notes on Wired Structures". 


14.2.3.1 Audio Command Opcodes 

These are the valid opcodes of audio commands, with the exception of those 
commands associated with the polyphony feature. See the section "The Polyphony 
Feature". The descriptions tell what action is performed by the audio microtask 
when a command having this opcode is encountered by the microtask. The opcodes 
are listed under the the name of the system constant (also in the sys package) that 
gives the opcode value. 


%audio-command-stop 
Causes the audio microtask to halt execution. No more commands 
will be fetched, or samples sent to the console, until the next 
execution of the sys:%audio-start instruction. The operand is 
ignored. 


%audio-command-jump 
Causes the audio microtask to fetch its next instruction not from 
the next sequential location, but from the physical address that is 
the value of the operand. Sequential execution of commands 
continues at that physical address. 


%audio-command-load-repeat 
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Loads the repeat register with the value of the operand. The 
operand is an unsigned 28-bit number to be loaded into the repeat 
register, not an address. See the description of the 
%audio-command-loop opcode for the use of this register. 


%audio-command-loop 


Decrements the repeat register by 1. If the result is greater than 
zero, the operand is interpreted as a jump address, and execution 
of commands continues at that address, as with 
%audio-command-jump. Otherwise, if the result is less than or 
equal to zero, command execution continues with the next 
sequential command. 


%audio-command-samples 


Designates a vector of sample pairs to be sent to the console. The 
operand is the physical address of the first sample pair; the 
remaining samples are fetched from successive words of physical 
memory. The word in the command stream after the 
%audio-command-samples command contains a fixnum that is 
the count of the number of sample pairs to be fetched and sent to 
the console before the execution of %audio-command-samples 
terminates, and the microtask proceeds to the next sequential 
command. The %audio-command-samples command is thus a 
two-word command. 


%audio-command-zero 


A synchronization primitive. The operand is the physical address 
of a cell, usually an array element. The audio microcode stores a 
fixnum zero in that cell as the result of executing the command 
having the opcode %audio-command-zero. The software may 
use this facility to test if the audio microtask has passed a given 
point in its command list. This enables the software to ascertain 
when it is safe to unwire or reuse data structures containing 
audio commands and/or samples. It is important to remember 
that the audio task, when active, locks out Lisp execution until it 
either sends a sample or goes idle. For example, if 
%audio-command-zero is immediately followed by 
%audio-command-stop, the observation of the zeroed cell by 
Lisp software implies that the microtask has already read, 
interpreted, and executed the %audio-command-stop. 


%audio-command-immediate 


Designates a vector of sample pairs to be sent to the console. 
Unlike %audio-command-samples, the sample pairs appear in 
the command list, in consecutive physical memory locations 
immediately following the the %audio-command-immediate 
command word. The operand of %audio-command-immediate 
is a number, which is the count of sample pairs. That number of 
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sample pairs is fetched from the command list and sent to the 
console, one every 20 microseconds (at a 50 KHz sampling rate). 
Execution of the command list proceeds with the next command 
after the vector of sample pairs, after all samples have been sent 
to the console. 


It is critically important that the operand is equal to the number 
of samples provided, lest commands be interpreted as samples or 
vice versa. 


14.2.4 The Polyphony Feature 


Note: The polyphony feature is experimental in Release 5.2. It may be radically 
altered in function and/or interface in future releases, or may be removed entirely. 


The polyphony feature of the 3600 audio microcode provides a way to generate 
polyphonic music in real time. There is no need to precompute the samples and 
store them before playback from disk. The polyphony feature can produce six voices, 
where a voice is a rhythmically independent sequence of musical notes. Each voice 
can be assigned a predefined, programmer-specified waveform, which determines the 
spectrum and the amplitude of the notes that appear in that voice, regardless of 
their pitch (frequency). The waveform specification determines the shape and 
amplitude of one cycle only of the waveform. This waveform is repeated at different 
frequencies to produce musical tones. 


The polyphony feature is not intended as a general-purpose music synthesis facility. 
For example, no control over the amplitude envelopes (attack, decay, and so forth) of 
the sounds produced is provided. The polyphony feature is intended for use in music 
system prototyping, that is, composition research, music editing programs, and so 
forth. Nevertheless, the square-envelope notes it produces are not very different 
from those produced by some electronic organs. When properly programmed and 
amplified, the digital audio facility is capable of reasonably authentic performance of 
much of the organ literature. 


14.2.41 Operation of Polyphony 

The basic function of the polyphony feature is to generate, in parallel, six separate 
wave signals, usually of different frequencies, and sum them, at the sampling times 
of the audio facility. The audio microcode accomplishes this by maintaining, for each 
voice, a wavetable, a wavetable cursor, and an increment. 


The wavetable for each voice consists of 256 fixnums stored in consecutive locations 
in physical memory, defining the waveform for notes in that voice. (Note: the size 
of the wavetables may change in a future release.) The fixnums constitute wave 
values, which digitally describe the waveform of the voice. 


The detailed interpretation of the wave values is as follows: Each fixnum wavetable 
element is interpreted as the algebraic sum of the wave values for the channels 0 
and 1, channel 1 having been shifted 16 bits left. In detail, the value for channel 0 
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is a 32-bit signed (31 bits and sign, 2’s complement) value between -2**15 and 
2**15-1, inclusive. The value for channel 1, also in the range -2**15 to 2**15-1, is 
shifted left 16 bits and added algebraically to the value for channel 0. The resulting 
number (which will always be a fixnum) is the value of the wavetable entry. Note 
that this is not the same format as that of audio samples used by other parts of the 
audio facility. 


-When polyphony is running (that is, when the audio microtask is interpreting the 
command %audio-command-polyphony), one value from each of the six tables is 
extracted, and these values are added algebraically. The resulting value is then 
offset by 2**15 in each halfword, and the resulting two halfwords are sent as audio 
samples to the two audio channels. 


You must ensure that the sum of the values from each table will never exceed the 
range -2**15 to 2**15-1 for either channel. The audio microcode will clip or overflow 
into the other channel if this range is exceeded. 


Associated with each voice is also a counter/pointer called the wavetable cursor. This 
quantity is a 32-bit unsigned number. The high-order eight bits of the wavetable 
cursor for each voice constitute an index, which selects the entry of its wavetable to 
be summed into the audio sample to be produced. The low bits are used to measure 
the passage of time, overflowing into the high bits 256 times per cycle of that voice. 


Also associated with each voice is a quantity called an increment. The increment is 
a 32-bit fixnum. It controls the frequency, or pitch, of the note in each voice, by 
controlling the rate of incrementing of the wavetable cursor for that voice. When 
the command %audio-command-polyphony is being interpreted by the audio 
microtask, the increment for each voice is added to the wavetable cursor for that 

_ voice, and the resulting quantity is made the new wavetable cursor. (This addition 
is performed after the wavetable sample is extracted). Thus, when this repeated 
addition produces enough change in the value of the wavetable cursor such that the 
top eight bits are affected, a different wavetable entry for that voice will be fetched 
at the next sampling time. Note that continued incrementing in this manner 
"wraps around”. In this way, the wavetable cursor is way reset to the beginning of 
the wavetable, after the last entry in the wavetable has been used. 


The following function (available in the audio package) computes the increment for 
a voice from the frequency: 


(defun frequency-polyphonic-increment (frequency) 
(round (* frequency (float 1_32.)) audio: *sample-rate*x) ) 


You simultaneously establish the increment and wavetable location for a voice by the 
audio command %audio-command-load-voice. You instruct the polyphony facility 
to output samples by the audio command %audio-command-polyphony. This 
command uses all of the wavetables and increments previously established by 
%audio-command-load-voice, and outputs as many samples as requested, one 
every 20 microseconds, generated by summing entries from the six wavetables, 
incrementing the six wavetable cursors by the six associated increments as each 
sample is generated. 
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Note: changing the wavetable and/or increment for a voice does not affect any other 
voice in any way. Since the audio microtask is awakened by an external timer, and 
runs until it either outputs a sample pair or stops, no discontinuity in notes played 
by other voices is observed when “%audio-command-load-voice is interpreted to 
change the note in one voice. 


Polyphony Command Opcodes 


%audio-command-load-voice 
Establishes a wavetable and increment for one voice of the 
polyphony feature The operand is the physical address of the base 
of the wavetable for the voice. The word in the command stream 
after %audio-command-load-voice is, in its 32 data bits, the 
increment for the voice. The low three (that is, the least 
significant) bits of this increment are the binary number of the 
voice whose wavetable and increment are to be established. 
%audio-command-load-voice is effectively a two-word command. 


When polyphony is being performed, the audio microcode will, for 
each voice, use the wavetable and increment established for that 
voice. There is no way to assert that a voice does not exist, or 
has no wavetable, or no increment. A valid wavetable and 
increment must be established for each of the polyphonic voices 
before %audio-command-polyphony is executed by the audio 
microcode, regardless of whether that voice is needed for the 
performance of the particular composition. 


%audio-command-load-voice does not affect the value of the 
wavetable cursor for the voice involved. . 


%audio-command-polyphony 
The operand is an unsigned 28-bit number. The audio microcode 
sends out that many samples, one each 20 microseconds, 
generated from the currently established wavetables of the 
polyphony feature. The wavetable cursors of each voice used by 
the polyphony feature are incremented by the increment 
established for that voice as each sample is sent out. The values 
of the increments and the wavetable cursors are not reset in any 
way by either the start of %audio-command-polyphony, or its 
completion. 


14.2.5 Notes on Wired Structures 


The audio microtask fetches commands from sequential locations of physical memory. 
Branch addresses in’ the command list are physical addresses. Audio sample data 
pointed to by the command list are also described by physical address. Wavetables 
used by the polyphony feature are also described and accessed by physical address. 


The audio microtask does not perform virtual address translation. Thus, the 
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command list and sample data must be stored in data structures wired, or locked, in 
main memory. That is, they must be prevented from being paged out or moved by 
the Lisp Machine operating system. As a digital audio programmer, you must 
therefore be aware of page boundaries. 


Audio command lists and sample vectors must be stored in wired pages consecutive 
in main memory, or scattered throughout main memory. If commands are stored in 
pages scattered throughout main memory, jumps must be programmed at the end of 
each page, to send the audio microcode on to the next page. If sample vectors are 
stored in pages scattered throughout main memory, you must use a separate 
%audio-command-samples command to describe the samples on each page. 
Wavetables for the polyphony feature must be in consecutive locations in main 
memory. 


It is conventional to use Lisp arrays as the data structure containing audio 
commands, samples, and wavetables. Any type of array is usable for this purpose. 
art-q arrays allow one audio command or sample pair per element, and are also the 
only type of array whose elements may validly be addressed by the aloc function. 


14.2.5.1 Lisp Primitives for Wiring Memory 

The relevant Lisp primitives to wire data structures for the digital audio facility are 
si:wire-structure, si:wire-words, and si:wire-consecutive-words. 
si:wire-words wires any extent of virtual memory into physical memory, although 
the page frames into which successive pages are wired may not be contiguous. 
si:wire-consecutive-words also wires any extent of virtual memory into physical 
memory, but successive pages are guaranteed to be stored in successive page frames 
in physical memory. si:wire-structure wires an entire structure (a convenience 
device to avoid having to calculate the location and extent of the virtual memory 
occupied by a structure) in the manner of si:wire-words. 


Since commands must be stored in consecutive locations in physical memory, 
si:wire-consecutive-words suggests itself as the natural primitive for this 
application. However, success of this primitive depends on the availability of 
consecutive page frames of main memory not already containing wired pages, and it 
is thus less likely to succeed as more pages are wired. Use of si:wire-structure and 
si:wire-words for audio data does not encounter this problem, but requires explicit 
programmer handling of page boundaries, as outlined previously. 


%find-structure-header and %structure-total-size are used to find the virtual 
memory location and extent of whole arrays or other structures to be wired. 
si:page-array-calculate-bounds can be used to calculate the virtual memory 
location and extent of portions of array that are to be be wired, when 
si:wire-words or si:wire-consecutive-words is used. %pointer-difference can 
also be used to determine the length of the extent, in words, between two addresses 
obtained via these primitives or the aloe function. 


Structures, or portions thereof, wired by any of these primitives, should be unwired 
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by sizunwire-structure or sizunwire-words (as appropriate) only after it has been 
ensured (via the techniques described) that the audio microtask is not fetching 
commands or samples from these structures. 


14.3 Lisp Primitives for the Digital Audio Facilities 


14.3.1 Functions, Variables, and Macros for Digital Audio 


This section describes the functions, variables, and macros available to the Lisp 
Machine programmer to aid in programming the 3600 Digital Audio Facilities. All of 
these objects are tools for programming the audio microtask. Therefore, this section 
assumes that you already understand the microcode capabilities. See the section 
"Microcode Support for the Digital Audio Facilities". 


All of the digital audio functions, variables, and macros appear in the audio package. 
Several comprehensive examples of their use are provided in the file 
sys:examples;audio-examples.lisp. See the section "Examples of Using the Audio 
Facilities". 

These Lisp tools assume the existence of an audio command array, in which audio 
microtask commands are placed, and out of which they are executed by the audio 
microtask. A macro (audio:with-audio) manages the wiring and unwiring of 
command arrays within the scope of a program. 


A default audio command array is provided as part of these audio support primitives. 
All of these primitives, however, allow the specification of any suitable user-provided 
array as a command array. Such an array must be a nonindirect, single-dimensional 
art-q array, with a fill pointer, allocated in a static area (such as 
audio:audio-area). 


Command arrays, as all arrays, are finite in extent. Carefully planned 
synchronization techniques must be utilized to allow uninterrupted sound to be 
produced from a single command array that is being serially reused for sequences of 
audio commands. See the section "Examples of Using the Audio Facilities". 


14.3.2 Digital Audio Parameters 


These are the critical constants of the audio facility. In programs these constants 
should be used instead of the numbers that are their current values in order to 
accommodate future modification of the audio facility. 


audio:*sample-rate* Variable 
The number of times per second that an audio sample is output when the 
audio microtask is active. This is a single-precision floating-point number. Its 
current value is 50e3, as determined by the hardware. 
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audio:*number-of-polyphonic-voices* Variable 
The number of polyphonic voices defined by the (experimental) polyphony 
feature. See the section "The Polyphony Feature". This is a fixnum, and its 
current value is 6. 


14.3.3 Testing for the Existence of Audio 


audio:audio-exists Variable 
This variable has a value of other than nil if and only if the machine on 
which it is evaluated has an operational audio facility. 


14.3.4 The Audio Wrapping Form 


audio:with-audio &optional command-array &body body Macro 
Encases code that generates audio commands. It prepares a command array 
for use by wiring it in an appropriate fashion and unwires it when the body 
of the form is exited. When exited, it also unconditionally halts the audio 
microtask, silencing the audio output. 


If command-array is given as nil, the default command array is used. 


When the scope of audio:with-audio is entered, it also zeroes the fill 
pointer of the supplied command array. The various interface functions 
described later utilize the fill pointer of the command array to keep track of 
the current position in the audio command list being built. 
audio:with-audio also globally binds scheduler parameters to allow the 
process generating audio commands to gain control when necessary and more 
rapidly than usual. 


14.3.5 Building Audio Command Lists 


The functions listed in this section prepare arguments for, build, and store audio 
commands in a command array. They assume that the fill pointer of the array 
describes the next available location in the array, and they update the fill pointer as 
needed. The array must be wired, as some of these functions will compute and 
store physical addresses of locations in the command array. Calling these functions 
does not produce sound. Sound is produced when the audio facility is directed (via 
audio:audio-start) to a command list produced by calling these functions. 


The fill pointer of the array defines a logical pointer called the audio index. The 
function audio:audio-index (which defines a location accessible with setf) is used to 
access this index (for example, for use as an argument to a later function call). 


The current implementation uses command arrays that are wired into successive, 
contiguous page frames of physical memory. (Note: This may change in the future.) 
The exclusive use of these primitives hides this implementation detail. In order to 
accommodate future changes in this strategy, do not perform calculations on audio 
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indices. Instead, request them whenever needed via audio:audio-index, and use 
them only as arguments to the primitives provided. 


Use of the macro audio:with-audio is the recommended way to establish the 
proper context in which these functions may be validly used. Each of them takes an 
optional argument, which specifies the command array in question. This argument 
always defaults to the facility’s default command array. 


audio:audio-index &optional command-array Function 
This function returns the audio index for the next command to be stored in 
the command array in question. The form (audio:audio-index) is suitable 
for use as the first operand of a setf form. 


audio:audio-room optional command-array Function 
This function returns the amount of available (unallocated) space, in single 
words, in the current command array. 


audio:audio-limit &optional command-array Function 
Returns a number one greater than the audio index of the last usable 
location in the command array. 


audio:audio-push-audio-stop optional command-array Function 
Pushes a %audio-command-stop onto the command list in the command 
array. ("Push", as used in the names of these interfaces, means "add to the 
end of, at the current audio index, and increment the audio index 
appropriately."). 


audio:push-audio-jump farget-index &optional command-array Function 
Pushes a %audio-command-jump onto the command list in the command 
array. The argument target-index is expected to be an audio index into the 
same command array, obtained previously from audio:audio-index. 


audio:push-audio-zero-flag flag-index &optional command-array Function 
Pushes a %audio-command-zero onto the command list in the command 
array. The argument flag-index is expected to be an audio index, into the 
same command array, of a “flag”. Such flags are allocated, and their indices 
returned, by audio:reserve-audio-flags. 


audio:push-audio-load-voice voice-number wave-array Function 
wave-array-start-time 
wave-array-index-increment &optional 
commanda-array 
Pushes a %audio-command-load-voice onto the command list in the 
command array. voice-number is a number, zero or greater, below the value 
of audio:*number-of-polyphonic-voices*, that specifies which polyphonic 
voice is to have its wavetable and increment loaded by the command to be 
built and stored. wave-array-index-increment is the value of that increment, 


76 Release 5.2 Patch Notes 
Symbolics, inc. August 1984 


which may be computed from the frequency of the tone desired by use of the 
function audio:frequency-polyphonic-increment. The wavetable for the 
voice is expected to be in the art-q array wave-array. The argument 
wave-array-start-index is the index into that array where the 256-word, wired, 
contiguous in physical memory, wavetable begins. 


audio:push-audio-polyphony number-of-samples &optional Function 
commanda-array 
Pushes a %audio-command-polyphony onto the command list in the 
command array. The argument number-of-samples specifies the sample count 
for the command to be built and pushed. 


audio:modify-audio-command-arg new-arg arg-type command-index Function 
&optional command-array 

Modifies an audio command that has already been pushed in the command 
array specified. This function must be used with extreme care: it can easily 
create invalid audio programs, which can destroy machine integrity. It 
modifies the 28-bit argument in the first word of the command whose index 
into the command array (command-index) is given. To be sure that this 
command may be validly used, read the description of the format of the 
individual audio command. See the section "Microcode Support for the Digital 
Audio Facilities". new-arg is the new value of the command whose index is 
given. The argument arg-type describes how it is converted to a 28-bit value 
for insertion in the existing command: 


immediate 
No processing is done. new-arg is expected to be a non-negative fixnum, 
which must be a count. 


:index 

The argument is an audio index into the command array specified. The 
location of the corresponding array cell is computed, verified to be wired, and 
the physical address of that location stored in the command. 


‘location 

The argument is a locative into a wired array of audio commands. The fact 
that this location is wired is verified, and the corresponding physical address 
stored in the command. 


14.3.6 Storing Samples 


The functions and macros described in this section place audio sample pairs into the 
command program. These commands can be either immediate 
(%audio-command-immediate) or stored elsewhere (Zaudio-command-samples). 
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audio:push-array-of-audio-samples array &optional from to Function 
command-array immediate-p 
Pushes appropriate commands onto the command list in the command array 
specified, to output all the sample pairs in the array array between indices 
from and (up to but not including) to. from defaults to 0, and to to the 
active length of array. array must be an art-q array containing precomputed 
sample pairs. 


If tmmediate-p is non-nil, the data will be copied into the command array, 
and output by means of %audio-command-immediate. 


If immediate-p is nil, array is assumed (and checked) to be wired, and as 
many %audio-command-samples commands as necessary to describe the 
data to be output are built and pushed. array need not be wired in 
contiguous page frames. . 


audio:computing-immediate-audio-samples (count &optional Macro 
command-array) &body body 

Facilitates the storing of immediate audio sample pairs. The code it wraps, 
body, is responsible for generating immediate audio sample pairs: it does so by 
calling the macro audio:push-immediate-audio-sample, within the scope of 
the use of audio:computing-immediate-audio-samples. Each use of 
audio:push-immediate-audio-sample stores one sample. The macro 
audio:computing-immediate-audio-samples arranges for an appropriate 
%audio-command-immediate to be constructed to describe all the samples 
stored. If the argument count is non-nil (at run time), it is expected to be a 
fixnum, which is the number of values to be stored. 
audio:computing-immediate-audio-samples will check, when it is exited, 
that that is the actual number of values stored, and signal an error if not. 
If count is nil, no checking is done, and 
audio:computing-immediate-audio-samples assumes that the number of 
samples that have been pushed is the correct number, and modifies the 
commands it builds appropriately. 


audio:push-immediate-audio-sample sample Macro 
Stores one audio sample pair, which is the value of its argument. This macro 
can be used validly within the scope of 
audio:computing-immediate-audio-samples. 


14.3.7 Looping Through Audio Command Lists 


These two macros facilitate the use of %audio-command-loop to create loops in 
audio command lists. Keep in mind that the audio microcode does noi support 
nested loops. 
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audio:audio-loop (repeat-count-or-nil &optional command-array) Macro 
&body body 

This macro builds a loop (with %audio-command-loop and 
%audio-command-load-repeat) in the audio command list in the command 
array specified. The code, body, which is wrapped by this macro pushes 
commands for the body of the loop. The macro generates the audio 
command to loop back at the time its scope is exited. The argument 
repeat-count-or-nil, when non-nil, specifies how many times the loop is to be 
executed by the audio microtask. That is the number which will be loaded 
into the repeat register. If repeat-count-or-nil is nil (at run time), the 
wrapped code must compute the number of loop repetitions, and invoke the 
macro audio:set-audio-repeat-count, whose argument is that number, 
some time before the scope of audio:audio-loop is exited. A diagnostic is 
issued (at run time) if the macro’s scope is exited without the repeat count 
having been specified by one of these two means. 


audio:set-audio-repeat-count count Macro 
Sets the value count as the repeat count for an audio command list loop that 
is currently being built by audio:audio-loop. This macro may only be 
validly used within the scope of audio:audio-loop. 


14.3.8 Synchronization Flags 


These functions allocate, in the command array specified, locations to be used as 
synchronization flags (for %audio-command-zero), and allow the flags to be waited 
for and reset. The "reset", or "normal", state of these flags, is non-zero. The audio 
microcode "sets" them, by setting them to zero, when a %audio-command-zero is 
executed. By means of these flags, the real-time progress of the audio microtask can 
be monitored. 


audio:reserve-audio-flags count &optional command-array Function 
Allocates, in the command list currently being built in the command array 
specified, count locations to be used as audio flags. The flags are reset. A 
%audio-command-jump is inserted in the command list being constructed, 
so that the audio microtask will jump around the locations being used as 
flags. The return value of this function is the index, in the command array 
given, of the first of the flags allocated. You can assume, if more than one 
flag was allocated by a call to audio:reserve-audio-flags, that the indices of 
flags other than the first are the sequential integers above the value 
returned. 


audio:wait-for-audio-flag flag-index &optional who-state audio Function 
reset-flag t command-array | 
Waits for the audio flag specified by flag-index, in the command array 
specified, to be set. Normally, it is the audio microtask that sets these flags, 
by means of %audio-command-zero. whostate is the state to be displayed 
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in the status line. If reset-flag is given as nil (this is not the default), the 
flag is not reset. The resetting, when requested, is performed after the flag 
has been observed to be set. The indices given to audio:wait-for-audio-flag 
should be those obtained from audio:reserve-audio-flags. 


14.3.9 Starting and Stopping the Audio Microtask 


These functions are used to start and stop the audio microtask. 


audio:audio-start index &optional command-array Function 
Starts the audio microtask, via the instruction sys:%audio-start, at the 
audio command specified by index in the command array specified. The 
array must be wired, and contain a valid, wired, audio command list. 


audio:audio-stop &optional command-array Function 
Stops the audio microtask immediately, causing immediate silence. 
audio:audio-stop accomplishes this by storing a %audio-command-stop 
instruction at location zero (0) of the command array given, and issuing 
audio:audio-start at that command. Thus, audio:audio-stop is 
destructive to the command array, and requires that it be wired. 


14.3.10 Conversions Between Sample Formats 


The following functions encode and decode samiple pairs. They are provided to hide 
the internal representation of sample pairs. Some of these "functions" are actually 
implemented as macros to help make code that prepares audio samples as fast as 
possible. 


These functions convert between three formats of samples, float, fixnum, and 
sample. Float and fixnum formats describe channel values. Sample format is the 
actual format of sample pairs stored in command arrays and sample arrays. 


Fixnum format consists of integers in the range -1**15 < x < 1**15. Float format 
consists of floating numbers and float channels are in the range -10< x <L.0. 
You must ensure that a float format value is never +1.0. 


audio:float-channel-fix float Function 
Converts a float format value to fixnum format. 


audio:fix-channel-float fix Function 
Converts a fixnum format value to float format. 


audio:fix-sample right &optional left right Function 
Takes one or two fixnum format values for the two channels and returns a 
sample pair in sample format containing those two values. 
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audio:float-sample right &optional left right Function 
Takes one or two float format values for the two channels and returns a 
sample pair in sample format containing those two values. 


audio:sample-channels sample Function 
Takes a sample pair in sample format and returns two values, the right and 
left channel values of that sample, respectively, in fixnum format. 


audio:sample-add-fix sample right-increment &optional left-increment Function 
right-increment 
Takes a sample pair and one or two increments, which are expected to be in 
fixnum format. The two channels of the sample pair are incremented by the 
two increments, and a new sample pair so constructed is returned. If the 
right channel goes out of range, it will overflow into the left channel instead 
of clipping. 


audio:sample-add-float sample right-increment &optional Function 
left-increment right-increment 
Takes a sample pair and one or two increments, which are expected to be in 
float format. The two channels of the sample pair are incremented by the 
two increments, and a new sample pair so constructed is returned. If the 
right channel goes out of range, it will overflow into the left channel instead 
of clipping. 


audio:sample-add-sample samplel sample2 Function 
Takes two sample pairs, in sample format, and produces a new sample pair 
by adding them. The operation performed is the addition of the fixnum 
format values corresponding to the channel values in the sample pairs. In 
other words, it is as if audio:sample-add-sample extracted the sample 
values from the sample pairs using audio:sample-channels, then added the 
channel values and reconstructed a sample pair using audio:fix-sample. 
The actual operation of audio:sample-add-sample is considerably more 
efficient. 


14.3.11 Conversions for the Polyphony Feature 


These functions convert between fixnum and float format channel values and the 
values stored in wavetables used by the polyphony feature. See the section "The 
Polyphony Feature". 


audio:fix-polyphonic-wave-table-entry right &optional left right Function 
Takes one or two channel values in fixnum format and returns a fixnum 
representing those two values, in the format used in wavetables. This is not 
the same as sample format. 
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audio:float-polyphonic-wave-table-entry right &optional left right Function 
Takes one or two channel values in float format and returns a fixnum 
representing those two values, in the format used in wavetables. This is not 
the same as sample format. 


audio:polyphonic-wave-table-entry-channels entry Function 
Takes as an argument an entry from a polyphonic wavetable, and returns 
two values in fixnum format, the right and left channel values encoded 
therein, respectively. 


14.3.12 Computing Polyphonic Increments 


This function computes the appropriate wavetable increment to specify the 
frequencies in polyphonic textures. 


audio:frequency-polyphonic-increment frequency Function 
Computes an increment value suitable for use with 
%audio-command-load-voice. The increment produced corresponds to a 
frequency of frequency. That is, the increment returned causes the 
wavetable for the voice with which it is used to be scanned frequency times 
per second. 


14.4 Examples of Using the Audio Facilities 


This chapter presents seven program examples that use the digital audio facilities, in 
both real-time and non-real-time synthesis applications. 


14.4.1. Sine Wave Example 


This example generates a sine wave at a specified frequency. 
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(defun sine-wave (frequency) 
(audio:with-audio () ;Set up the audio environment 
(letx ((start (audio:audio-index)) ;Get the current (starting) index 
(samples-per-cycle (sys:round audio:*sample-rate* frequency) ) 
;; Spread out several cycles to get a more accurate 
3; frequency. Extra factor of 2 makes sure there is room. 
(number-of-cycles (max 1 (// (audio:audio-limit) samples-per-cycle 2))) 
;; Actual number of samples we are going to produce 
(number-of-samples (* samples-per-cycle number-of-cycles))) 
3; Make sure we have room to play this frequency 
(when (> (+ number-of-samples 2) (audio: audio-limit) ) 
(ferror "Frequency too low")) 
; This form allows us to compute number-of-samples inline 
; (as opposed to computing them in a separate array). If we 
3; didn’t know how many samples we were going to produce we could 
3; supply NIL for number-of-samples and the form will keep track 
3; and adjust the command array when the form is exited. Since we 
3; do supply the number of samples, the form will check to make 
3; sure we supply exactly that many. This helps us to avoid writing 
33; incorrect audio programs. 
(audio:computing- immediate-audio-samples (number-of-samples) 
(loop for sample-number below number-of-samples 
as phase = 
;; This is the phase (angle) that is passed to sin 
33; to get the sine wave. (This will cons double-floats in 
33; systems where si:pi is a double-float.) 
(// (* 2 si:pi Sample-number number-of-cycles) 
number-of-samp les) 
as sample = 
3; Take the sin of the phase. Also multiply it by 
3; something less than 1 so we never get a value of 1.0 
(a restriction, see documentation). Take the 
resulting floating point number in the range [-1.0, 
+1.0) and create a ’sample.’ 
faugie: float-sample (* (sin phase) 0.9)) 
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do ;; Now actually push the sample into the command array. 
(audio: push- immediate-audio-sample sample) )) 
33; All of the samples are computed and an appropriate command has 
3; been generated to output them. Now we cause a jump back to the 
33; beginning to keep the sound going. 
(audio:push-audio- jump start) 
3; The program is complete, we can now start the audio facility. 
(audio:audio-start start) 
;; When you’ve heard enough, just type anything. with-audio 
3; supplies code to turn off the audio facility when exited and do 
3; Other bookkeeping. 
(tyi)))) 


14.4.2 Sawtooth Wave Example 


This is roughly the same as sine wave, but instead produces a sawtooth and only 
generates one cycle for it. 


(defun saw-wave (frequency) 
(audio:with-audio () 
(letx ((start (audio:audio- index) ) 
(samples-per-cycle (sys:round audio:*sample-rate* frequency) )) 
(audio: computing-immediate-audio-samples (samples-per-cycle) 
(loop for sample-number below samples-per-cycle 
as value = 
33 create a sawtooth value in the range [-1.0,1.0). 
3; Note this can never be exactly 1.0 since 
3; sample-number never quite gets as large as 
33; samples-per-cycle. 
(- (// (* 2.0 sample-number) samples-per-cycle) 1.0) 
do (audio:push-immediate-audio-sample (audio:float-sample value) )) 
(audio:push-audio- jump start) 
(audio:audio-start start) 
(tyi))))) 


14.4.3 Square Wave Example 


This example demonstrates yet another type of waveform: a square wave. The 
audio-loop form is also exemplified. 
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(defun square-wave (frequency) 
(audio:with-audio () 
(let* ((start (audio: audio- index) ) 
(samples-per-cycle (sys:round audio: *sample-rate* frequency) ) 
;; Compute the number of samples for the high value and 
3; low value. Divide them as evenly as possible. 
(samples-first-half (// samples-per-cycle 2)) 
(samples-second-half (- samples-per-cycle samples-first-half))) 
33; Create a loop that will repeat samples-first-half times. If we 
;; weren’t sure how many times we want to repeat, we could specify 
;; NIL and then use set-audio-repeat-count to set the count. 
(audio:audio-loop (samples-first-half) 
;; Compute 1 value (the high value) for output. 
(audio: computing- immediate-audio-samples (1) 
(audio:push-immediate-audio-sample (audio: float-sample 0.9)))) 
;; Do the same for the second half. 
(audio:audio-loop (samples-second-half) 
(audio: computing- immediate-audio-samples (1) 
(audio:push-immediate-audio-sample (audio: float-sample -0.9)))) 
;; Jump back to the beginning so we get more than one cycle. 
(audio:push-audio- jump start) 
(audio:audio-start start) 
(tyi)))) 


14.4.4 Beep Example 
This is basically a modified square-wave. 


(defun %beep-ignoring-most-issues (frequency duration) 
(audio:with-audio () 
(let*x ((start (audio: audio- index) ) 
(samples-per-cycle (sys:round audio: *sample-rate*x frequency) ) 
(samples-first-half (// samples-per-cycle 2)) 
(samples-second-half (- samples-per-cycle samples-first-half))) 
3; Can’t nest loops, so we have to do the outer loop with a jump 
3; and bash the location when time has elapsed. 
(audio:audio-loop (samples-first-half) 
(audio: computing- immediate-audio-samples (1) 
(audio:push-immediate-audio-sample (audio: float-sample 0.9)))) 
(audio:audio-loop (samples-second-half) 
(audio:computing- immediate-audio-samples (1) 
(audio:push- immediate-audio-sample (audio:float-sample -0.9)))) 
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3; This is the tricky part. We need to put a jump to the 
3; beginning, but we need to know where it is so we can cause it 
3; to fall through. We also need a flag so we know when the audio 
3; has stopped so we can exit. If we simply exited without. 
33; waiting, the with-audio form could turn off the sound prematurely. 
(let* (;; get the index that we will eventually bash and put in a 
33; jump back to the start. 
( jump- index (prog1 (audio:audio-index) (audio:push-audio- jump start) )) 
3; reserve (and reset) an audio flag. 
(flag-index (audio:reserve-audio-flags 1)) 
33; reserve-audio-flags puts in a jump command around the 
3; flags it reserves, so we could have gotten the 
3; fall-through index after pushing the jump command. 
;; Anyway, get the index of the fall-through location. 
(fall-through- index (audio: audio- index) )) 
; When we bash the jump command the microcode will jump to here 
; instead, which will cause the flag to get zeroed and the 
3; audio facility to stop. Both events happen atomically as far 
3; as Lisp can tell because no samples are output in the 
33 intervening time. 
(audio:push-audio-zero-flag flag- index) 
(audio: push-audio-stop) 
3; Start the audio 
(audio:audio-start start) 
;; Wait the appropriate number of microseconds. 
(loop with start-time = (sys:%microsecond-clock) 
until 
(= (%32-bit-difference (sys:%microsecond-clock) start-time) duration) ) 
3; Here is where we bash the argument of the jump command to 
3; instead jump to the fall-through code. 
(audio:modi fy-audio-command-arg fall-through-index :index jump- index) 
3; Wait for the microcode to get to the flag and stop before we exit. 
(audio:wait-for-audio-flag flag-index "XBEEP”))))) 


we we 


14.4.5 Non-real-time Synthesis Example 


Certain kinds of very high quality sound cannot be generated in real time (one 
sample computed every 20 microseconds). Small pieces (pieces that can fit in 
physical memory) can be computed and then played later. 
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(defun play-audio-sample-array 
(array &optional (from 0) (to (array-active-length array) )) 
(audio:with-audio () 

33; with-wired-structure wires the structure on entry 

3; and unwires on exit. External sample arrays must be wired. 

(si:with-wired-structure array 

(let*x ((flag-index (audio:reserve-audio-flags 1)) 
(start (audio: audio-index))) 

33; Cause the samples to be played. If we supplied a non-NIL 
33; immediate-p argument, we wouldn’t have to wire the 
33 structure, since the samples would be put in the command 
3; array which is already wired. However, most command arrays 
33; are not very large and probably couldn’t hold all the 
3; samples. It’s a tradeoff. 
(audio: push-array-of-audio-samples array from to) 
3; When the microcode finishes the samples, cause it to clear 
3; the flag and stop. 
(audio:push-audio-zero-flag flag- index) 
(audio: push-audio-stop) 
33; Start it up and wait for it to finish. 
(audio: audio-start start) 
(audio:wait-for-audio-flag flag-index “Play samples”))))) 


14.4.6 Playing Large Pieces Example 


Larger pieces (those that are too big to fit in physical memory) can still be played. 
This program plays data that is stored on the FEP filesystem. Storage must be on 
the FEP filesystem for several reasons. The digital audio system must produce data 
at the rate of one sample every 20 microseconds (including all overhead). This is 1.6 
megabits per second, which is a small factor away from raw disk speed. After 
overhead, this is getting close to the limits of the system. The LMFS file system 
incurs too much overhead. Also, we cannot copy (as LMFS would try to do if we 
used :string-in into an array) and we cannot spend time wiring buffers (as we 
would need to do with LMFS if we used :read-input-buffer). 


The FEP filesystem allows us to do disk direct memory access (DMA) directly into a 
buffer that we can keep wired. We can also setup the audio facility to point to 
these buffers (using push-array-of-audio-samples) once so we do not have to do it 
often. 


The macro with-multi-disk-buffering takes care of multibuffering bookkeeping. 
The user decides how many pages to devote to each buffer and the number of 
buffers. Disk arrays (the buffers) are allocated and wired on entry and unwired on 
exit. 
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(defmacro with-multi-disk-buffering 
((npages nbuffers) (array-of-buffers size-of-each-buffer) &body body) 
“npages and nbuffers are inputs, array-of-buffers and size-of-each-buffer are outputs” 
‘(let ((,array-of-buffers (make-array ,nbuffers)) 
(,size-of-each-buffer (* ,npages 288.))) 
(unwind-protect 
(progn (loop for .idx. below ,nbuffers 
as .buffer. = (allocate-resource ’si:disk-array 
(+ ,size-of-each-buffer 288.)) 
do (setf (aref ,array-of-buffers .idx.) .buffer.) 
(si:wire-structure .buffer.)) 
, @body) 
(loop for .idx. below ,nbuffers 
as .buffer. = (aref ,array-of-buffers .idx.) 
do (when (si:structure-wired-p .buffer.) 
(si:unwire-structure .buffer.)) 
(deallocate-resource *si:disk-array .buffer.))))) 


The function play-disk-file is the workhorse. There are many "if we are fast 
enough" clauses in this example. As long as there is not much other activity 


(especially paging activity) we usually are fast enough. 


(defun play-disk-file (pathname) 
(setq pathname (fs:merge-pathnames pathname “FEP:>&.mus.newest" ) ) 
3; get the FEP file opened. 
(with-open-file (file pathname :direction :block 
:if-exists :overwrite 
: if-does-not-exist :error) 
3; These numbers were picked after much experimentation and tuning. 
(let*x ((npages 40.) (nbuffers 8)) 


(audio:with-audio () 
(with-multi-disk-buffering (npages nbuffers) (buffers buffer-size) 


3; allocate a flag for each buffer for synchronization. 
(let* ((flags (audio:reserve-audio-flags nbuffers) ) 
(start (audio: audio- index) )) 
33; build the audio program. Push each buffer as an array of 
;; samples and then cause the flag associated with the 
;; buffer to be zeroed. 


(loop for buffer below nbuffers 
do (audio:push-array-of-audio-samples (aref buffers buffer) 


0 buffer-size) (audio:push-audio-zero-flag 
(+ flags buffer))) 
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;; Loop back to the beginning. To play new data (if we are 
3; fast enough, there /will/ be new data in the buffers). 
(audio: push-audio- jump start) 
;; n-queued is the number of buffers filled with valid data 
3; that the microcode can use. (The microcode will use 
;; all of them, but if we are fast enough we can keep them full.) 
;; We fill up all the buffers and then start the audio facility. 
;; This is done by an interaction with need-to-start and n-queued. 
;; (There is also provision for small files.) When all the buffers 
3; are queued, we need to wait for the microcode to finish 
;; the next one before we can do disk dma into it. 
(loop with n-queued = 0 
with need-to-start = t 
with n-file-blocks = (sys:ceiling (send file :length) 1152.) 
with current-file-block = 0 
initially (format t “~&F seconds~%" 
(// (* n-file-blocks 288.) audio: *sample-rate*) ) 
as blocks-this-whack = 
3; This is the number of blocks to do this time 
3; around. It is at most the number of pages of 
3; buffering. It is also at most the number of 
33; blocks remaining in the file. 
(min npages (- n-file-blocks current-file-block)) 
for buffer-number = 
3; This is the current buffer number we are going 
3; to try to fill. It is gets incremented modulo 
3; the number of buffers. 
0 then (\ (1+ buffer-number) nbuffers) 
as flag-index = (+ flags buffer-number ) 
do ;; If all the buffers are queued, or if the end of 
3; the file has been reached, wait for the 
3; microcode to finish the buffer and then count it 
33; as dequeued. 
(when (or (= n-queued nbuffers) (zerop blocks-this-whack) ) 
(audio:wait-for-audio-flag flag-index "Play disk file”) 
(decf n-queued) ) 
;; If we have some blocks to queue, make sure the 
3; flag for this buffer is reset, read in the 
;; blocks from the FEP file, increment the block 
3; pointer into the file, and count another buffer 
33 aS queued. 
(when €not (zerop blocks-this-whack) ) 
(audio:reset-audio-flag flag- index) 
(send file :block-in current-file-block blocks-this-whack 
(aref buffers buffer-number) ) 
(incf current-file-block blocks-this-whack) 
(incf n-queued) ) 
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3; If the audio facility hasn’t been started and 
3; all buffers are filled, start the audio facility 
3; (and remember we did start it). 
(when (and need-to-start. 
(or (= n-queued nbuffers) 
(2 current-file-block n-file-blocks))) 
(audio:audio-start start) 
(setq need-to-start nil)) 
until 
3; We are finished when nothing is queued and we are 
33; at the end of the file. 
(and (zerop n-queued) 
(2 current-file-block n-file-blocks))))))))) 


14.4.7 Polyphony Example 


This is a simple muse. It uses roughly the same multibuffering strategy as the disk 
example, so that portion will not be commented as heavily. (See the section "Playing 
Large Pieces Example".) The muse muses some number of voices (user specified) 
between 1 and 6. All voices start at DO (C). Each step (approximately every 1/4 
second) causes each voice to wander randomly between 2 diatonic tones below the 
previous value and 2 diatonic tones above the previous value. 


3; This is the wave-array for the muse. It is big enough to ensure that 
3; there will be at least 256 (one page) consecutive words. 
(defvar *muse-wave-array* 
(make-array (+ Sys:page-size sys:page-size -1) 
:initial-value 0 :area audio:audio-area) } 


(defun polyphonic-muse (&optional (n-voices 4)) 
(check-arg n-voices (and (fixp n-voices) 
(< 1 n-voices audio: *xnumber-of-polyphonic-voices*) ) 
“an integer between 1 and 6") 
(audio:with-audio () 
(si:with-wired-structure *muse-wave-array* 
(let ((offset-to-page 
3; This is how one gets to the number of Qs to 
3; the beginning of a page boundary 
(Idb sys :%%vma-word-offset 
(- sys:page-size 
(Idb sys:%%vma-word-offset 
(%pointer (locf (aref *muse-wave-array* 0)))))))) 
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3; Setup the muse wave array for a 1/6 (minus a bit) amplitude 
33 Sinewave (sawtooth doesn’t seem to sound good here). 1/6 
3; allows all six voices to proceed without overflow. The 
3; “minus a bit” avoids clipping at 1.0. 
(loop for index below sys:page-size 
do (setf 
(aref *muse-wave-array* (+ index offset-to-page) ) 
(audio: f loat-polyphonic-wave-table-entry 
(// (sin (// (* 2.0 si:pi index) sys:page-size)) 6.2)))) 
3; Initialize each voice to a reasonable value. It is essential 
3; that each voice gets a proper wave-array pointer and 
3; increment value. An increment value of 0 will cause the 
3; pointer never to be incremented. (This isn’t strictly true, 
3; since the voice number is stored in the low 3 bits, but this 
;; advances the pointer very slowly.) 
(let ((start (audio: audio-index))) 
(loop for voice below audio: *number-of-polyphonic-voices* 
do 
(audio:push-audio-load-voice voice *muse-wave-array* offset-to-page 0)) 
(audio:push-audio-stop) 
(audio:audio-start start) 
3; Put the audio index back to the start 
(setf (audio:audio-index) start) ) 
(loop with nbuffers = 4 
with n-queued = 0 
with need-to-start = t 
with flags = (audio:reserve-audio-flags nbuffers) 
with start = (audio:audio- index) 
with chords-per-whack = 
33; Take the room remaining, divide by the level of 
3; buffering and then divide by the sum of [2 locations 
33 per voice for the push-audio-load-voice command, one 
3; for the push-audio-polyphony command, and one for a 
33; possible flag or jump]. 
(// (audio:audio-room) nbuffers (+ (* n-voices 2) 1 1)) 
with half-tone-offsets = 
33 0 (and the multiples of 12) are DO. The other. 
3; numbers are offsets (from 0) to consecutive notes in 
3; the diatonic scale. 
°(-25. -24. -22. -20. -19. -17. -15. -13. 
-12. -10. -08. -07. -05. -03. -01. 
000. +02. +04. +05. +07. +09. +11. 
#12. +14. +16. +17. +19. +21. +23. 
#24. +26. +28. #29. +31. +33. +35.) 
with half-tone-offsets-length = (length half-tone-offsets) 
with voice-indices = 
33; A list, one element for each voice, 
33 Starting at middle DO. 
(make-list n-voices 
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initial-value (find-position-in-list 000. half-tone-offsets)) 
for buffer-number = 0 then (\ (1+ buffer-number) nbuffers) 
until (kbd-tyi-no-hang) ;Stop when user hits a key 
do 


(when (2 n-queued nbuffers) 
3; This also resets the flag 
(audio:wait-for-audio-flag (+ flags buffer-number) “Muse” ) 
(decf n-queued)) 
;; if this is buffer zero, make sure we are back to the start. 
(when (zerop buf fer-number ) 
(setf (audio: audio-index) start)) 
3; Set up the chords for this buffer 
(loop repeat chords-per-whack 
- do ;; update each voice 
(loop for voice-indices-scan on voice- indices 
as old-index = (car voice-indices-scan) 
as new- index = 
(let (( index (+ old-index (random 5) -2))) 
33; Clip at the boundaries of the list 
(cond ((< index 0) 1) 
((2 index half-tone-offsets- length) 
(- half-tone-offsets-length 2)) 
(T index))) 
do (setf (car voice-indices-scan) new- index) ) 
3; Queue the new values to polyphony facility 
(loop for index in voice-indices 
for voice-number upfrom 0 
as half-tone-offset = (nth index half-tone-offsets) 
as octave-offset = (// half-tone-offset 12.0) 
as frequency-factor = (expt 2.0 octave-offset) 
as frequency = (* 256.0 frequency-factor) 
do 
(audio:push-audio-load-voice 
voice-number *muse-wave-array* offset-to-page 
(audio: frequency-polyphonic-increment frequency) )) 
3; Do polyphony for 1/4 second 
(audio: push-audio-polyphony 
(sys:round audio: *sample-rate* 4))) 
;; Synchronize this buffer 
(audio:push-audio-zero-flag (+ flags buffer-number) ) 
(incf n-queued) 
(when (and (2 n-queued nbuffers) need-to-start) 
(audio: push-audio- jump start) 
(audio: audio-start start) 
(setq need-to-start nil))))))) 
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